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VAX$S 

VAXSADDP4 = Add Packe ies ta Goer nd Format) 

ADDPx/SUBPx _Common Initialization Code 

ADD_PACKED = Add Two * 4 Decimal String 

—* “PACKED_BYTE = aes Two Bytes Conta ning. Bye ies Digits 
UBTRACT_PACK cKED - Subtract {ve Packed Decima al st ngs 

SUE PACKED 1 E = Subtract Two Bytes Containing Dec mal Digits 

STORE RESUC - 


Store Decimal Str ng 
- CHECK _WRITE ACCESS - Check Writability of Decimal String 
VAXSMULP = Multiply Pac 
Common Exit Path for VAXSMULP and VAX$DIVP 
EXTEND STRING_MULTIPLY = Multiply a String by a Number 
VAXSDIUP = Divide Packed 
QUOTIENT_DIGIT = Get Next Digit in Quotient 
MULTIPLY STRING = Multiply a String by a Number 
DEC IMAL_ROPRAND 
ARITH AACCVIO = Reflect an Access Violation 


AccesS Violation Handling for ADDPx and SUBPx 
Access Violation Handling for MULP and DIVP 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 

IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
—Bme r NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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0000 : 

00 ;++ 

8 ; Facility: 

80 VAX-11 Instruction Emulator 

8 ; Abstract: 

00 The routines in this module emulate the VAX-11 packed decimal 


instructions that perform arithmetic operations. These procedures can 
be a part of an emulator package or can be called directly after the 
input parameters have been loaded into the architectural registers. 


The input parameters to these routines are the registers that 
contain the intermediate instruction state. 


These routines run at any access mode, at any IPL, and are AST 
reentrant. 


Author: 

Lawrence J. Kenah 
; Creation Date 

19 October 1983 
; Modified by: 


oo 
SOoooooooocoocoooooooooooooooooo 


: Environment: 


2————————— 
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v04-001 LJK0045 rence J. Kenah 19-Sep-1984 
ve result string” 4h ADDP4 and SUBP4 aver <y erebed for 
write access to insure that the ah. A on does not modify 
memory before trying to restart. 


v01-003 LJK0037 Lawrence J. Kenah 17-Jul-1984 
Fix two minor bugs in exception handling code that caused 
MULP and DIVP tests to generate spurious access violations. 


v01-002 LJK0024 Lawrence J. Kenah 21-Feb-1984 
code to handle access ytoret ions. Perform minor cleanup. 
Eliminate double use of R10 in MULP and DIVP. 


sk 
LJKO04 


o 
WhO OU win 
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2 
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0000 6 

0 3 8 v01-901 LJKO0008 Lawrence J. 19=0c t-1983 

0 68 The emulation code for ADDP 4. Bde⸗ SUB°4, SUBP6, MULP and 
88 8 DIVP was moved into a separate module. 
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G6 7 
= VAX-11 Packed Decimal Arithmetic Instr 
Declarations 


. SUBTITLE 
: Include files: 


«NCCROSS 
- ENABLE 


SPSLDEF 
SSRMDEF 


-DISABLE 
- CROSS 


: Symbol definitions 


AX/VMS Macro v04-00 


=JAN1985 17:27:01 p 
S-3EP-1986 00:44:54 EEMULAT.BOGSRCIVARARITH.MARS T° (3) 


Declarations 


3; No cross reference for these 
SUPPRESSION ; No symbol table entries either 


fields in ADDP4 registers 
44 in ADDP6 registers 


os 00⏑ 
one an ms mn mts ms ed 
>a re etre rt rec 


i 

i 

e bit fields in PSL 

e arithmetic trap codes 
SUPPRESSION Turn on symbol table again 
Cross reference is OK now 


The architecture requires that R4 be zero on age te ig of an ADDP6 or 
SUBP6 instruction. a 2 
instructions after an access violation, we could siaply zero the saved 
R4 value on the code pete that these two instructions ha 

before they merge wit 

restart requires that we keep the original R4 around at least until no 
more access violations are possible. 

fact that R4 must be cleared on exit i 

evolving condition codes. We use bit 
because it is nearly impossible to enter the emulator wit 


f we did not have to worry about restartin 
ve in common 
the ADDP4 and SUBP4 routines. The ability to 


© accomplish this, we store the 

n R11, which also contains the 

2 mode bit 
CM set. 


1, the c 


ADD_SUB_V_ZERO_R4 = PSL$V_CM 


: External declarations 
- DISABLE 
EXTERNAL - 


eEXTERNAL - 


3; PSECT Declarations: 
DEFAULT 


CK,- 
0_PACKED_TABLE,- 
OnBINARY “TABLE .~ 
R 


VAXSDECIMAL_EXIT 
SDECIMAL~ACCVI 

VAXSREFLECT-TRAP, 

VAXSROPRAND 


= 
° 


DISPLACEMENT , WORD 


-PSECT _VAXSCODE PIC, USR, CON, REL, LCL, SHR, EXE, RD, NOWRT, LONG 
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$008 186 BEGIN_MARK_POINT 


* 
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tract Packed (6 Operand F 5-SEP- EMULA VAXARITH.MAR; 1 
; SUBTITLE VAXSSUBP6 = Subtract Packed (6 Operand Format) 
; Functional Description: 


In 6 operand format, the subtrahend string specified by the subtrahend 
length and subtrahend address operands is subtracted from the minuend 
str ng sgecit ed by the minuend length and minuend ress operands. 
The difference string specified by the difference length and difference 
address operands is replaced by the result. 


S 


Wr 


-1 


Input Parameters: 


000 RO = sublen.rw Number of digits in subtrahend string 
000 R1 = subaddr.ab Address of ——— string 
DC R2 = minlen.rw Number of digits in minuend string 
P R35 = minaddr.ab Address of m re string 
R4 = diflen.rw Number of drgits n difference string 
RS - difaddr.ab Address of difference string 


Output Parameters: 


RO = 0 
R1 = Address of the ore containing the most significant digit of 
the subtrahend string 


= 
RS = Address of the byte containing the most significant digit of 
he minuend string 


R4 = 
RS = Address of the byte containing the most significant digit of 
the string containing the difference 


Condition Codes: 
N <= difference string 3s 4 


Z <= difference string EQ 
: ohne over flow 


PAPE DE PAA ASS BB Be BP BE EI 


Register Usage: 


This routine uses all of the general registers. The condition codes 
are recorded in R11 as the routine executes. 


- ENABLE LOCAL _BLOCK 
VAXSSUBP6: : 
OFFF 8F PUSHR 7 MBO oA RE RS_RE RS RGA? BERD RIDA 3; Save the lot 
9 9 : Indicate that this is subtraction 


VALS Sos NOR MI SS Ooo WH aoa > Doo Gor ak aNd 2 oo Wn roa eo be ame te 


— —— — — a a tt ts — — — a a = ss ss as os ss 2s as 2s — — — — — —— 
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MOVZBL #1,R 
BRB 10$ : Merge with ADDP6 code 


= VAX-11 Packed 
VAXSADDP6 = Add 
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. SUBTITLE VAXSADDP6 = Add Packed (6 Operand Format) 
Functional Description: 
In 6 operand format, the addend 1 string specified by the oro 1 
length and addend 1 address operands is added to the addend 2 string 
spec fied by the addend 2 length and addend 2 address operands. The sum 
gtr ine 125 by the sum length and sum address operands is replaced 
y ult. 


Input Parameters: 


RO = addilen.rw Number of digits in first addend string 
R1 = addiaddr.ab Address of first addend strin 
R2 - add2len.rw Number of digits in second addend string 
R35 - addéaddr.ab Address of second addend string 
R4 = sumlen.rw Number of digits in sum string 
RS = sumaddr.ab Address of sum string 
Output Parameters: 
RO = 0 
R1 = Address of the byte containing the most significant digit of 
e the first addend string 
= 
R35 = Address of the byte containing the most significant digit of 
the second addend string 
RS =A 


Address of the byte containing the most significant digit of 
the string containing the sum 


Condition Codes: 
N <= sum string LSS 
Z <= sum string EQL 
Vv <- gos Saas over flow 
C <- 
Register Usage: 


This routine uses all of the general registers. The condition codes 
are recorded in R11 as the routine executes. 


Be Se Ge Ge Ge Ge Se Ge Ge Ge Se Se Se Ge Ge Se Ge Se Ge Se Se Se Se Se Se Se Ge Ge Se Se Se Se Se Se Se Se Sse Se SeSse Sete 


VAXSADDF6: : 
PUSHR #*M<RO,R1,R2,R3,R4,R5,R6,R7,RB,RI,RIO.RII> : Save the lot 
C : This is addition 

108: org R4 ; Insure that R4 is LEQU 31 
MOVPSL R1 ; Get initial PSL 


: Indicate that the saved R4 must be cleared on the exit path 


BBCS 8890 _SUB_V_ZERO_A4.R11,258 ; Set bit and join common code 
BRB 25 ; In case we drop through BBCS 


K 7 
VAXSDEC IMAL _ARITHMETIC = VAX-11 Packed Decimal Arithmetic Instr 8-JAN-1985 17:27:01 VAX/VMS Macro v04-00 P 
—X α 00.4446 a 


VAX$SUBP4 = Subtract Packed (4 Operand f 


~o 

So 

_ 
228 


Ooo 


Oo 
Oooo 


SSSSsssoooooeooeooeSSSSS 


7 
-SEP-1 EMULAT .@UGSRC JVAXARITH.MAR; 1 (5) 
. SUBTITLE VAXSSUBP4 = Subtract Packed (4 Operand Format) 
Functional Description: 
In 4 operand format, the subtrahend he specified by subtrahend 
length and subtrahend address operands is subtracted from the difference 
string specified bY he fference length and difference address 
operands and the difference string is replaced by the result. 


; Input Parameters: 


RO - sublen.rw Number of digits in subtrahend string 
R1 = subaddr.ab Address of subtrahend decimal string 
Re - diflen.rw Number of digits in difference string 
R35 = difaddr.ab Address of difference decimal string 


: Output Parameters: 

; RO = 0 

5 Ri = Address of the byte containing the most significant digit of 
: 4* subtrahend string 


R2 = 
Rg = Address of the byte containing the most significant digit of 
the string containing the difference 


WR SO ONO VL WO ODNAUSE 


; Condition Codes: 


N <= difference string LSS 0 
2 <= difference string EQL 0 
V < gec tees over flow 


SESS FIFE LALLA LN INIA S&S 5 SS SS Ssh 
BDNOW 


H C <- 

4 ; Register Usage: 

7 This routine uses all of the general registers. The condition codes 
3 are recorded in R11 as the routine executes. 

7 

4 VAXSSUBP4: : 


PUSHR #*A<RO,R1,R2,R3,R4,R5,R6,R7,RB,RI,RIO,RI1> ; Save the lot 
7 MOVZBL #1,R9 3; Indicate that this is subtraction 
80 BRB 20 : Merge with ADDP4 code 


ss | 
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| . SUBTITLE VAXSADDP4 = Add Packed (4 Operand Format) 
028 


: Functional Description: 
In 4 operand format, the addend string specified by the addend penges 
d by the 
00 
00 
00 
00 
00 
8 
60 
00 
00 
00 
09 
00 
0028 
0026 
0028 
3 : 
a 
09 


and addend address operands is added to the sum string specifie 
on —* and sum address operands and the sum string is replaced by 
e result. 


Input Parameters: 


9 - addlen.rw Number of digits in addend string 
Ri = addaddr.ab Address of addend decimal string 
R2 - sumlen.rw Number of digits in sum string 
R35 = sumaddr.ab Address of sum decimal string 


Output Parameters: 


RO = 0 
R1 = Address of the byte containing the nost significant digit of 
- addend string 
= 


R35 = Address of the byte containing the most significant digit of 
the string containing the sum 


Condition Codes: 
N <= sum string LSS 0 
Z <= sum string EQL 0 
V <- ges Soak over flow 
C <- 

Register Usage: 


This routine uses all of the general registers. The condition codes 
are recorded in R11 as the routine executes. 


3LJK0065 0264 30 15$: BSBW GRE CK VAI TE ACCESS ; Perform rigorous access check 
3LJK0065 38 11 BRB 0$ : String can be written after all 
3LJK0065 
VAXSADDP4: : 
OF FF ef B88 PUSHR #*A<RO,R1,R2,R3,R4,R5,R6,K7,RB,RI,RIO.RIT> ; Save the lot 
D4 CLRL eR ; This is addition 


; The output string, described by R4 and RS, will be the same as the input 
3; string for ADDP4 and SUBP4. It is necessary to explicitly clear R4<31:16> 
3; along this code path so MOVO R2,R4 will not always work. 


208: MOVZWL R2,R4 ; Set output size equal to input size 

MOVL R5,R5S 3 2. and ditto for string addresses 
MOVPSL Rif : Get initial PSL 

: Indicate that the saved R4 will be restored on the common exit path 


BBCC #ADD_SUB_V_ZERO_R4,R11,253 ; Clear bit and join common code 


CAAA SIAPIFIPIPIPIPIPIIG 68 et a ot ot tO So SSS woononownovond 


3LJK0065 00 568 iF €5 
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ADDPx/SUBPx Common initialization Code -SEP-19 EMULAT.BUGSRC JVAXARITH.MAR; 1 
. SUBTITLE ADDPx/SUBPx Common Initialization Code 


; ALL four routines sonverye at this point and execute common initialization 
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youe001 g 00:46; $4 —* 9 
code until a later decis | 


on is made to do addition or subtraction. 


R4 = Number of digits in destination string 
RS = Address of destination string 


R9 = Indicates whether operation is addition or subtraction 
0 => addition 
1 => subtraction 


Rens 
CONOUSE UF Ut —-00@ 
FD Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe ee 


4 
4 R11<31> = Indicates whether this is a 4-operand or 6-operand instruction 
4 0 => 46-operand (restore saved R4& on exit) 
004 5 1 => 6-operand (set R4 to zero on exit) 
004 ; - 
3LJK00465 06 00 8 FO 094 . ot 258s INSV #PSLSM_7,80,84,R11 ; Set Z-bit, clear the rest in saved PSw 
-1 Boe? 5 ESTABLISH _HANOLER - ; Store address of access 
pee ; ARITH_ACCVIO ; violation handler 
004C 5 ROPRAND CHECK R2 z Insure that R2 is LEQU 31 
bose 5 MARK_POINT ADD_ SUB _BSBW 9 
FFAS" 30 83 44 BSBW™ DECIMALSSTRTP_ZEROS_R2_R3 : Strip high order zeros from R2/R3 | 
0057 1 ROPRAND CHECK RO : Insure that RC is LEQuU 31 
OOSF ¢ MARK _POINT ADO_SUB_BSBW_0 
FF9E’ 30 003 63 BSBW” DECIMALSSTRIP_ZEROS_RO_R1 : Strip high order zeros from RO/R1 | 
3LJK0065 8 -1 ; Perform the access check on ee output string for the worst case, a string 
3LJKO045 § ; large enough to accommodate 51 decimal atgits. A detailed check using the 
3LJK0065 006 -3 3; correct by e length of the output string is necessary * if this initial 
ent 8 3 : probe fails. The more detailed check can be handled out of Line. 
5LIK0065 65 10 09 OD 06 6 PROBEW 9 516, (R5) : Can result string be written? 
ee C 13 88 BEQL 15$ ; Branch if no write access allowed 
: 0068 Phy ; Rather than totally confuse the already complicated logic Geol tng with 
068 66 : different Length strings in the add or subtract Looe. we will pu the 
° ; result into an intermediate buffer on the stack. This buffer will be long 
J 8 enouyh to handle the worst case so that the addition | need only concern 
068 — ; itself with the lengths of the two input loops. The required Longe is 1 
068 5 bytes to handle an addition with a carry out of the most significant byte. 
OE | ; We will allocate 20 bytes to maintain whatever alignment the stack has. 
68 
3LJK0045 ee f 1 30$: CLRO -(SP) : Set aside space for output string 
=i 7E «7C 7% CLRQ 0s = (SP) : Worst case string needs 16 bytes 
7E D4 75 CLAL -(SP) 3; Add slack for a v 
54 04 Y EF 76 EXTZV #1,#4,R4,R8 3; Get byte count of destination string 
F5 C1 77 ADOL3) =R8B,R5,-(SP) : Save nig address end of destination 
55 18 AE 9E MOVAB 24(SP5,R5 : Point R5 one byte beyond buffer 


7 

75 

9 ; The number of minus signs will determine whether the real operation that we 
:; perform is addition or ubtract on, ‘eet is, two plus signs or two minus 
2; signs will both result in additi 


on, while a plus Sign and a minus sign will 
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0078 3; result in subtraction. The addition and subtraction routines have their own 


M3 ¢ ; methods for determining the correct sign of the result. 
78 § : For the purpose of counting minus avers. we treat subtraction as the 
78 ; addition of the negative of the input operand. That is, subtraction of a 
78 3 3 positive quantity Causes the sign to be remembered as minus and counted as 
78 3; @ minus s 90 while subtraction of a minus quantity stores a plus sign and 
8 39 ; counts not ing. 
a 3 : On input to this code sequence, R9 distinguished addition from subtraction. 
078 93 ; On output, it contains either 1, or 2, indicating the total number of 
| 0078 34 ; minus Signs, real or implied, that we counted. 
50 04 34 EF 8 96 EXTZV #1,44,R0,R6 ; Get byte count for first input string 
51 56 CO 008 397 ADDL R6,R1 : Point R1 to byte containing sign 
008s 398 MARK_POINT ADD_ SUB. 24 . _— 
61 FO or 8B it 99 BICB3 #*B111100007(R1),R6 ; R6 contains the sign ‘‘digit” 
10 59 «ER sit £00 BLBS R9,35$ 3; Use second CASE if subtraction 
8 rh 3; This case statement is used for addition 
008B 404 CASE RO, TYPE=B,LIMIT=#10,<- ; Dispatch on sign digit 
0088 405 50$,- : 10 => sign is "+" 
008B 406 40$,- ; 11 => sign is ‘'-" 
0088 407 50$,- : 1¢ => sign is ‘‘+" 
0088 408 40$,- : 1 => sign is tlee 
0088 409 50$,- 3 14 => sign is ‘‘s" 
0088 410 50$,- 3 15 => sign is ‘'s"' 
0088 38411 > 
0098 tig 
8* rhe 3; This case statemert is used for subtraction 
009B 415 35$: CASE R6,TYPE=B,LIMIT=#10,<- ; Dispatch on sign digit 
009B 416 40§,- : 10 => treat sign es ‘'="' 
0098 417 50$,- ; 11 => treat sign as ‘'+"' 
009B 418 rt ta 3 1 => treat sign as ‘'="' 
009B 419 50$,- : 13 => treat sign as ‘'+"’ 
0098 420 40$,- ; 14 => treat sign as ‘'="' 
828 421 40$,- ; 15 => treat sign as ‘= 
098 4 ; > 
OAB 4 
59 4 DO AB 424 40S: MOVL #1,R9 ; Count a minus sign 
56 0D 5 «(OOAE «425 MOVZBL #1$,R6 ; The preferred minus sign is 13 
05 11 1 ? § BRB 608 ; Now check second input sign 
59 64 ; 4 3 508: CLRL R9 ; No real minus signs so far 
56 OC QA — MOVZBL #12,R6 ; The preferred minus sign is 12 
52 04 9 EF : 431 608: EXTZV #1,84,R2,R7 ; Get byte count for second input string 
Ss @ D 4 ; ADOL R7,R3 ; Point R3 to byte containing sign 
0 4 MARK POINT ADD SUB 24 Sse 
63 «FO 8 434 BICBS #°B111100007(R37,R7 ; R7 contains the sign ‘digit 
5 
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ADDPx/SUBPx Common Initialization Code 


R9,ADD_PACKED 
SUBTRACT_PACKED 
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PAPI BDO BD NAAT 


2222222 2 2 222 


Page 
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ispatch on sign digit 
th 3 sign is me's 


1 => sign is ‘= 
¢ => sign is 
4 
5 


; Remember that sign was minus 

; The preferred minus sign is 13 
; Now check second input sign 

; The preferred minus sign is 12 


; Even parity indicates addition 


Odd parity calls for subtraction 
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oe - Number of digits in second input decimal string 
R - Address of least significant digit of second input 
decimal string (the byte containing the sign) 


R4<4:0> = Number of digits in output decimal string 
R5 - Address of one byte beyond least St pnts tent digit of 
intermediate string stored on the stack 


RG<9:0> - Sign of first input string in preferred form 
R7<3:0> = Sign of second input string in preferred form 


: a3 * . SUBTITLE ADD_PACKED = Add Two Packed Decimal Strings 

: 639 3 Functional Description: 
OE 461 : This routine adds two packed decimal eerie whose descriptors 

E 188 3 are passed as input parameters and places their sum into another 
: 8 (perhaps identical) packed decimal string. 

tg 465 : At the present time, the result is placed into a 16-byte storage 
Boe 296 $ area while the sum is being evaluated. This drastically reduces 

OES 467; the number of different cases that must be dealt with as each 
GOES $68 : pair of bytes in the two input strings is added. 

0&5 470; The signs of the two input strings have already beer dealt with 
Boe 471 ; so this routine per toras addition in all cases, even if the original 
OOE $76 3 entry was at SUBP4 or SUBP6. The cases that arrive in this routine 
903 473; are as follows. 
bogs tog : R2/R3 RO/R1 lt 
O0ES 476 : gore ames eesrmszeofeneans ene seo e2ons i+ 
OOS coe | R2/R3 + RO/RI l l l 

; H s ' s ' H 

OOES 479 : Te Bien inane 
O0ES5 480 3 -oeeececececan eeceoeen tem ecamesmonmann een} erm ere er eece=se wo} 
QOOES 481; H ; ; ; 
9065 4 ¢ : R2/R3 + RO/R1 ; minus H minus ; minus ; 
OQ0E5 4 3 H ' H H 
00E5 484 3 ee — be eee — 2222 
00E5 $8 3 H } ; ; 
OOES 486; R2/R3 - RO/R1 | minus : plus : minus : 
QO0OES 487; : : : : 
O0ES 488 3 —— 2— 224 
9065 489; 
9063 490; R2/R3 = RO/R1 : plus : minus : plus : 
QOES 491; ' : : H 
8 8 4 —— — —— ee ewww ence ae oon} 
bors 49%: Note that the correct choice of sign in all four cases is_the sign 
bees a2? : of the second input string, the one described by R2 and R3. 
Goes 3 : Input Parameters: 

E5499: RO<4:0> - Number of digits in first input decimal string 
Boe? 0; RI - Address of least significant digit of first input 

2 12 decimal string (the byte containing the sign) 

E § ; 

E 3 

E 3 

3 

€5 : 

Ee 3 

i 

E ; 

E 3 

E ; 


WO OOnNOouw 


—— OO 
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5 


8 R11 - Saved PSL (Z-bit is set, other condition codes are clear) +9 

E 1 ; (SP) = Saved RS, address of least significant digit of ultimate iL 

E 7; destination string. 3L 

; 19 : 4(SP) = Beginning of 20-byte buffer to hold intermediate result + 

E : Output Parameters: iL 

OF § ; The particular input operation (ADDPx or SUBPx) is completed in iL 

OES 3 this routine. See the routine headers for the four routines that ri 

OE 4; request addition or subtraction for a list of output parameters sk 

BE 5 : from this routine. - 

00E5 $ : zl 

8 ADD_PACKED: sk 

59 ft Bw E MOVB R7,R9 : Use sign of second string for output 34 
03 59 9 QOE8 0 BLBC R9,10$ ; Check if sign is negative st 
5B 08 8 bee 1 B1SB #PSLSM_N.R11 3 «+. SO the saved N-bit can be set + 
OEE ‘ MARK_POINT ADD_SUB_24 zt 

56 61 OF 88 OOF : 16$ BICeS  g noooon tt cal) R6 : Get least significant digit to R6 + 
57 63 OF 88 OOF $ BICB3 #*B8000011117(R3),R7 ; Get least significant digit to R7 iL 
58 8 OF6 CLRL. & ; Start the add with CARRY orf L 

0075 0 8 5 : BSBW ADD_PACKED_BYTE_R6_R7 ; Add the two low order digits 
ae 28 : The following set of instructions computes the number of bytes in the two zl 

OFB 41; ate ines ard, if necessary, performs a switch so that RO and R1 always st 

itd 4 ¢g 3; describe the shorter of the two strings. + 

50 04 Qn EF OF 544 EXTZV #1,#4,R0,RO : Convert digit count to byte count iL 
52 04 O01 EF age 545 EXTZV #1,#4,R2,R2 : Do it for both strings iL 
52 26 D1 183 346 CMPL RO,R2 ; We want to compare the byte counts iL 
09 1B 0108 4 BLEQU 208 ; Skip the swap if we're already correct à 

56 50 7D 0104 8 mova RO,R6 ; Save the longer 3h 
50 52 7D 010D 4 mova R2,R0 3; Store the shorter on RO and R1 zt 
2§ 56 7D 119 50 mova —838 3 and store the longer in R2 and R3 zl 
5 50 C2 BF 2) 20$ SUBL RO,R 3 Make R2 a difference (R2 GEQU 0) et 
116 : : RO now contains the number of bytes —2* in the shorter string. iL 

118 : ; R2 contains the difference in bytes between the two input strings. sb 

50 oS 011 TSTL RO , Does shorter string have any room? iL 

06 13 iN8 iH BEQL 408 ; Skio loop if no rele at all at 

004D 3 11A 30$: BSBW ADD_PACKED_BYTE_STRING ; Add the next two bytes together iL 

FA 50 38 ia $ SOBGTR RO,30$ ; Check for end of loop at 
52 D 1 162 408: TSTL R : Does longer string have any room? iL 

16 3 } f e§ BEQL Ree ; Skip mat loops if all done st 

0D 58 =E9 4 — 508. 8180 R8,60$ ; Life is simple if CARRY clear iL 
6 pve O107 56 CLRL sR : Otherwise, CARRY must propogate tL 

’ 129 68 MARK_POINT ADD_SUB_24 * zt 
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of 3 
3 
06 11 


Men be FS 


75 «58 90 


57 


— 


MOVZBL =(R3),R7 
BSBW = ADD_PACKED_BYTE_R6_R7 
ne 508 


; So add CARRY to single string 
SOBGTR 38 
BRB 


: Use the special entr nt 
; Check for this string exhausted 
766 3 Join common completion code 


— 2— — 


MARK _POINT Ap. SUB_24 
60$: MOVB =(R3) ,=-(R5) ; Simply move src to dst if no CARRY 
SOBGTR R2,608 3 eee until we're all done 


70$: MOVB RB,-(R5) ; Store the final CARRY 
3* 
; At this point, the result has beer. computed. That result must be moved to 
; its ultimate destination, noting wether any nonzero digits are stored 
so that the Z-bit will have its cor-ect setting. 
Input Parameters: 
R9<7:0> = Sign of result in preferred form 
mae - Saved condition codes 
R11<31> = Indicates whether to set saved R4 to zero 


(SP) - Saved R5, high addres: end of destination string 


Oo OONOULS — 0 


Fee ne eS Se 


Pw 


ADD_SUBTRACT_EXIT: 
ADDL3) = #1, (SP), R85 ; Point RS beyond real destination 
A 24(SP ; R1 locates the saved result 
BSBW T ; Store the result and record the Z-bit 
BBS #PSL$V_Z,R11,1008 : Step out of Line for minus zero check 


MARK_POINT ADD_SUB_24 
INSV R9,#0,84,a(SP)+ : The sign can finally be stored 


ADDL #20,SP ; Get rid of intermediate buffer 
#ADO SUB_V_ZERO_R4,R11,90$ : Branch if 4-operand opcode 

CLRL 16(SP) : Clear saved R4 to return zero 

BRW VAXSDECIMAL_EXIT ; Exit through common code path 


f the result is negative zero, then the N-bit is cleared and the sign 
s changed to a plus sign. 


100$: BICB #PSLSM_N,R11 : Clear the N-bit uncondtc tensity 
BBS gust éy_V-R11 80S ; Do not change the sign on overflow 
MOVB #12,R9 » Make sure that the s qn is plus 
BRB 80$ t code 


WOU M MMMM DCs —"QrIrran—COocoocCVCVCCCC99C9C90S PF PNL NOO 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
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1 
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wo Bytes Containi 5-SEP-19 EMULAT .BUGSRC JVAXARITH.MAR; 1 
. SUBTITLE ADD_PACKED_BYTE = Add Two Bytes Containing Decimal Digits 


-+ 
; Functional Description: 


This routine adds together two bytes containing decimal digits and 
produces a byte containing the sum that is stored in the output 
string. Each of the input bytes is converted to a binary number 
(with a table-driven conversion), the two numbers are added, and 
the sum is converted back to two decimal digits stored in a byte. 


This routine makes no previstone for oxtes that contain thlegat 
decimal digits. We are us ng the UNPREDICTABLE statement in the 
architectural description of the decimal instructions to its fullest. 


The bytes that contain a pair of packed decimal digits can either 
exist in packed decimal strings located by R1 and R3 or they can 

be stored directly in registers. In the former case, the digits must 

be extracted from registers before they can be used in later operations 
because the sum will be used as an index register. 


; For entry at ADD_PACKED_BYTE_STRING: 


on 
>>>>>>rr>>r>rr>r>r>r>rrr>r>?r>r>r>r>rr>rrrr>r>rr>r>rr>r>r>r>r 


Input Parameters: 
R1 = Address one byte beyond first are that is to be added 
R3 = Address one byte beyond second byte that is to be added 
R5 = Address one byte beyond location to store sum 
R8 = Carry from previous byte (R8 is either 0 or 1) 

Implicit Input: 


Rg - Scratch 
R?7 = Scratch 


Output Parameters: 


R1 - Decreased by one to point to current byte in first input string 
9 - Decreased by one to point to current byte in second input strin 


- Decreased by one to point to current byte in output string 


R8 - Either 0 or 1, reflecting whether this most recent ADD resulted 


in a CARRY to the next byte. 


; For entry at ADD_PACKED_BYTE_R6_R7: 


— — —— — — a ee — —— —— — — — —— —— — — — — — — od oo od od od od od ad a ad od dD 
2—— 


— 

ea a a a AAT a a5 
MAMMA &- 

WESSSS SSS SSS LSS DRA DAD Ee wu 


Input Parameters: 


Rg - First mee containing decimal erett pair 
R7? = Second byte containing decimal digit pair 


RS = Address one byte beyond location to store sum 
R8 = Carry from previous byte (R8 is either 0 or 1) 
Output Parameters: 


VATEREL IRAL ARITHMETIC 
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56 71 
537 73 
0000°CF46 
0000°CF47 
3, 3 
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0000°CF47 
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} . 3 RS = Decreased by one to point to current byte in output string 
16A qi : RB - Either 0 or 1, reflecting whether this most recent ADD resulted 
! : 3 n a CARRY to the next byte. 
18h z ; Side Effects: 
8 R6 and R7 are modified by this routine 
16A 681; , R2, RG, and RY (and, of course, R10 and R11) are preserved 
194 6 § ; ~y this routine (Puan 
18h é 4 : Assumptions: 
8 — This routine makes two important assumptions. 
16A 6 8 : 1. If both of the input bytes contain only legal decimal digits, then 
16A 689 ; it is only necessary to subtr oct at most once to put ali 
194 oa 3 possible sums in the range zt 9. That is, 
8 69 ; 99 + 99 + 1 = 199 LSS 200 
16A 694 : 2. The result will be checked in some way to determine whether the 
16A 695; result is nonzero so that the Z-bit can have its correct setting. 
Sign cor 
98 $28 ADD_PACKED_BYTE_STRING: 
16A i MARK_POINT ADD_SUB_BSBW_24 
9A O16A 701 MOVZBL =(R1),R6 : Get byte from first string 
16D 108 MARK_POINT ADD_SUB_BSBW_24 
9A 190 A MOVZBL =-(R3),R7 : Get byte from second string 
179 7 : VAXSADD_PACKED pyye ahe- R7:: 3; ASHP also uses this routine 
17 7 $ ADD_PACRED BYTE_R 
90 0170 7 ove. “Tec tMALSPACKED. TO_BINARY_TABLECR6],- 
176 708 3 conver 5° digits to binary 
90 0176 709 MOVB DECIMALSPACKED_TO_BINARY_TABLECR7) 
120 210 R7 3; Convert digits to binary 
0 O017C 711 ADDB R6,R7 3: Form their sum 
0 O17F ay: ADDB R8,R7 3; Add CARRY —3. less 8 
94 0182 71 CLRB R 3; Assume no CARR this” 3. 
91 0184 714 CMPB R7,#99 3 Check for CARRY 
18 188 «715 BLEQU los : Branch if within bounds 
18A at MOVB #1,R8 ‘ propogese CARRY to next step 
82 18D 71 SUBB 0s #100, R7 : P into interval 0..99 
191 oe 10$: MOVB DECIAAL SBINARY. TO PACKED TABLEER7].< 
197 71 (R5) tore converted sum byte 
05 0197 720 RSB 
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- Subtract Two Packed De 5-SEP-1 EMULAT .BUGSRC JVAXARITH.MAR; 
. SUBTITLE SUBTRACT_PACKED = Subtract Two Packed Decimal Strings 
Functional Description: 


5 
@D 

> 

a= 
~— 
vv 
ro 
on 


* 


This routine takes two packed decimal strings whose descriptors 
are passed as input poraneters. subtracts one string from the 
other, and places their sum into another (perhaps identical) 
packed decimal string. 


At the present time, the result is placed into a 16-byte storage 

area while the q}{ rerence is being evaluated. This drastically reduces 
the number of ¢ fferent cases that must be dealt with as each 

pair of bytes in the two input strings is added. 


The signs of the two input strings have already been dealt with so 
this routine per toras subtraction in all cases, even if the original 
entry was at ADDP4 or ADDP6. 


Input Parameters: 


RO<4:0> = Number of digits in first input decimal string 
R1 - Address of ho significant digit of first input 
decimal string (the byte containing the ign) 


oor - Number of digits in second input decimal string 
f - Address of least significant digit of second input 
decimal string (the byte containing the sign) 
£30 R4<4:0> = Number of digits in output decimal string 
1 R5 - Address of one byte beyond least otgnt ptcent digit of 
intermediate string stored on the stack 


—*530* - Sign of first input string in preferred form 
R7<3:0> = Sign of second input string in preferred form 


R11 Seved PSL (Z-bit is set, other condition codes are clear) 

(SP) - Saved RS, address of least significant digit of ultimate 
destination one ine. 

4(SP) = Beginning of 20-byte buffer to hold intermediate result 


Output Parameters: 


20D CD OD Cd Cd 09 OD Cd CD OD OF 0D OD 0D 0D 09 0D G9 GD.09 GD GD.G9.09.00.00.00.00.00.00 00 
22222 
yr 
X* —— 


this routine. See the routine headers for the four r nes that 
request addition or subtraction for a List of output parameters 
from this routine. 


Algorithm for Choice of Sign: 


Th Bu input operation (ADDPx or SUBPx) is cone eted in 
3 ou 


The choice of sign for the output string is age nearly so 
straightforward as it is in the case of addition. proach that is 
often taken is to make a reasonable guess at the sign 9 the result. 

If the inal subtraction causes a ROW, then the choice wes incorrect. 
The t gn aust be changed and the result must be replaced by its tens 
complement. 


DODODOODOOOOODODOODODOOOODOOODOOOY WOOODODODODODOOODODODODODOODODODODOOODOODOOOOO 
C].0d Cd CD) Cd 03 0D Cd 0D CD NCD 0D. 0D CD CD CD OD CD OD CN CD GD ADC 
pe >> J 
AAO 
Lary DOo Wty 


ae — — — — — — — — — — — — — — — — — — — — — — — 


PN Be 
BONO UML w 
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1 79 ; This routine does not ss. Instead, it chooses the input string of 
1 ; the larger absolute nesnt ude as the minuend for this fhternal * 
1 routine 9 chooses its sign as the sign of the result. 
1 ; This algorithm is actually more efficient than the reasonable 
38 guess method and is probe ly better than a ss method that is never 
1 ; wrong. All ¢ ete bytes that are processed. in the sign evaluation 
19 3 erperece ~~ oop are oh tntnased from consideration in the 
8 § 3 subtraction loop, which has a higher cost per byte. 
13 3 ; The actual algorithm is as follows. (Note that both input strings have 
1 ; a} reedy had kgaging zeros stripped so their lengths reflect 
! 3 significant digits.) 
1 3 1. If the two strings have unequal lengths, then choose the sign of 
1? 3 : the string that has the longer Length. 
19 5: 2. for strings of equal length, choose the sign of the string whose 
Ag 8 most significant byte is larger in magnitude. 
19 oe : 3. If the most significant bytes test equal, then decrease the 
19 3 Lengths of each string by one byte, J the previous most 
8 9 significant bytes, and go back to step 2. 
19 03 : 4. If the two strings test equal, it is not necessary to do any 
8 subtraction. The result is identically zero. 
19 5: Note that the key to this routine'’s efficiency is that nig order 
19 — oytes that test equal in this soap are dropped from consideration in 
19 3 the more complicated subtraction loop. 
3b BBs 
19 10 SUBTRACT_PACKED: 
50 04 9 EF bs, 11 EXTZV =. #1,44,R0,RO : Convert digit count to byte count 
52 04 9 EF + 812 EXTZV #1,#4,R2,R2 : Do it for both strings 
52 35 D1 O1A 13 CMPL 8 R2 ; We want to compare the byte counts 
C 1F OIA 14 BLSsu 408 ; RO/R1 represent the smaller string 
2A 14 —3 12 BGTRU 30% ; R2/R3 represent the smaller string 
1A9 i$ ; The two input pte ings have an equal number of bytes. Compare magnitudes to 
1A9 18 + determine which string is really larger. If the two strings test equal, then 
te 19 ; skip the entire subtraction loop. 
58 51 cS 109 ? SUS. RO,R1,R8 » Point R8 to low address end of RO/R1 
59 53 J 1AD § SUBL R2,R3,R9 3; Point R9 to low address end of R2/R3 
0 1B1 TSTL R : See if both strings have zero bytes 
oc 1 18 : BEQL 208 ; Still need to check low order digit 
18 $ MARK_POINT ADD_SUB_24 
89 4 91 O16 108: CMPB (RB)+, (R9)+ 7 ¢ re most significant bytes 
1F 018 BLSSU 4608 3 RO/RI represent the smaller string 
17 1A OBA BGTRU 30% 3: R2/R cepresent the smaller string 
25 D7 O1BC DECL R : Keep Re n step with R 
PG F5 106 SOBGTR RO,10$ 3 eee which gets decremented here 
1 


; At this point, we have reduced both input strings to single bytes that 


ss 
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4 9 
Dd 0) 
$ : certain a sign ‘digit’ and may contain a digit in the high order nibble 


1 
a 


S 
— 
» 
Pd 
o 
—— 
vv 
ro 
on 
ax 
ta me 


; The two oyrings have identical magnitudes. Enter the snd processing code 
; with the intermediate result unchanged (that is, zero). 


BRw ADD_SUBTRACT_EXIT ; Join the common completion code 
; The string described by RO and Ri has the larger magnitude. Choose its sign. 


1 
: the original digit counts were nonzero. 
1 ; MARK_POINT ADD_S'5_ 26 
58 68 OF 88 1 208: B1CB5 Fe000011 11 (35 AB ; Look only at digit, ignoring sign 
59 9 OF 88 1 9 B1CB3 #0000111 -¢R T,R9 ; Get the digit from the other string 
9 1 CMPB RB,R ; are these eters 
iS iF 91 BLSSU ‘ $ ; RO/Ri represent the smaller string 
0 1A 01 BGTRU 8 3n 7R3 represent the smaller string 
FF6A 31 


; Then swap the two string descriptors so that the main subtraction loops 


; always have R2 and R3 describing the larger string. Note that the use of 


; R6 and R7 as scratch Leaves R7C41 :B> in an UNPREDICTABLE state. 


\~-h~-A~ 4-4-4 ~-4-1~4~)~-1~-)-1-1-1)-1-Te lela lelnlalia le) 


POAAAO OVA TROOP AMA MO OA WWW MAANOQOOOMO OUI 


SOBGTR 
86 80S: TSTL 


; Check for end of loop 
; Does one of the grings have more? 
Ll done 


» : 
: : BEQL ifos ; Skip next loops if a 
A $89 90S: BLBC RB, 1008 


Life is simple if BORROW clear 


1 
1 
: 
2? 56 90 01 ; Load preferred sign into R9 
6 50 7D 01 mova RO,R6 ; Save the longer 
50 52 7D 01 mova R2,RO ; Store the shorter on RO ana R1 
52 8* 7D 01 novo Rg Re 3 ese and store the gnger in R2 and R3 
5 D4 01 CLAL R ; Insure that R7<31:8> is zero 
03 11 43 8RB 50$ ; Continue along common code path 
4 : The string described by P2 and R3 has the larger magnitude. Choose its sign. 
59 57 90 if 8 408: novs R7,R9 ; Load preferred sign into R9 
52 C2 it 866 50$:  SUBL  RO,R ; Make R2 a difference (R2 GEQU 0) 
03 59 3 1f Bé BLBC R9 608 ; Check if sign is negative 
58 IE + BISB #PSL$M_N,R11 j se. $O the Saved N-bit can be set 
1EF 870 MARK_POINT ADD_SUB_ 24 
56 61 OF 88 H B71 608: Bes oe eee ana ann gne : Get least significant digit to R6 
57 63 OF 8B OFS & BICBS #*B0000°1117(R3),R7 ; Get least significant digit to R7 
33 4 OF : CLRL R ; Start subtracting with ROW off 
00 0 5 85886 SUB_PACKED_BYTE_R6_R7 ; Subtract the two low order digits 
1F $4) ; RO contains the r of bytes remaining in the smaller string 
i #43 : R2 contains the difference in bytes between the two input strings 
50 1F J TSTL 3. ; Does smaller string have any room? 
06 1F 38 BEQL ; Skip loop if no ronm at ail 


¥. 
88 708: BSBu sve PACKED_BYTE_STRING ; Subtract the next two bytes 
BE RO, 708 


> 
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- Subtract Two Packed De matt f Ss a YERULAT.DOSSRCSVARGRITH.MARS10 7 (9 vO 
Bank POINe ADD. SUB_26 ' 
MOVZBL <-(R3),R7 ~ ~ ; So subtract QORROW from single string 
BSBW E PACKED _Siif_R6_R7 : Use the special entry point 
SOBGTR a 3 Check for this string exhausted 
BuB 1 3; Join i 


common completion code 
MARK POINT ADD. SUB_26 
mOvVB i =(R5) Simply move $rc to dst if no BORROW 
SOBGTR R2,1068 i «ee until we're all done 


; Otherwise, BORROW must propogate 


: 
$4 
35 


; @eeeeerere BEGIN TEMP eeeeeeeees 


333 THE FOLLOWING HALT INSTRUCTION SHOULD BE REPLACED WITH THE CORRECT 
; ABORT CODE. 


0 ii: THE HALT 1S SIMILAR TO THE 
gt] iit MICROCODE CANNOT GET HERE 
318 [ii ERRORS THAT OTHER IMPLEMENTATIONS USE. 
58 if 915 °°" tstl ré ; If BORROW is set here, we blew it 
0) a | 318 beql 1208 3; Branch out i 
0 91 halt ; This will cause an OPCDEC exception 
318 120$: 
0 $31 ti: eeeeereeere END TEMP teeeeerenee 
921 
FFIS) = 31 922 BRwW ADD_SUBTRACT_EXIT ; Join common completion code 
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VFO OONOUE 


EMULAT .BUGSRC JVAXARITH.MAR; 


— — — —— 


- SUBTITLE SUB_PACKED_BYTE = Subtract Two Bytes Containing Decimal Digi | 
; Functional Description: 


This routine takes as input two bytes —— decimal digits and 
produces a byte containing their difference. This result is stored in 
the output string. Each of the input bytes is converted to a binary 
number (with a table-driven conversion), the first number is 
subtracted from the second, and the difference is converted back to 
two decimal digits stored in a byte. 


<i rous ing makes no provisions for oxtes that contain illegal 
decimal digits. We are using the UNPREDICTABLE statement in the 
architectural description of the decimal instructions to its fullest. 


The bytes that contain a pair of packed decimal digits can either 
exist in packed decimal strings located by R1 and R3 or they can 

be stored directly in registers. In the former case, the digits must 

be extracted from registers before they can be used in later operations 
because the difference will be used as an index register. 


For entry at SUB_PACKED_BYTE_STRING: 


SESESSSSLSSSSILLELLOLIPPE LILO LOPES 


WRI SO ONO ONO FE WO 0 


SeEesct 


Input Parameters: 


Rl = Address one byte beyond byte containing subtrahend 
R3 = Address one byte beyond byte containing minuend 
RS = Address one byte beyond location to store difference 


R8 = BORROW from previous byte (R&B is either 0 or 1) 
Implicit Input: 


a - Scratch 
R7 = Scratch 


Output Parameters: 


R1 = Decreased by one to point to current byte 
in subtrahend string 

R3 - Decreased by one to point to current byte 
in minuend string 

RS = Decreased by one to point to current byte 
in difference string 


RB - Either 0 or 1, reflecting whether this most recent 
subtraction resulted in a BORROW from the next byte. 


For entry at SUB_PACKED_BYTE_R6_R7: 


Bete Se Se Se Ge Se Ge Se Se Ge Se Ge Se Se Se Ge Ge Se Ge Ge Ge Fe Ge Se Ge Ge Ge Se Ge Se Se Ge Se Se Ge Se Se Se Se Se Se Ge Se Ge Se Se Se Se Se Se Se Se Se 


SOOOCOOCOCOOOOOCOOCOSSSOOCOOCSOOOOOCO OOOO OOOOOOOCOO 


ooOooovononowonno 
a ee i ee 


SOOONO UFO 


Input Parameters: 
R6<7:0> - exte containing decimai digit pair for subtrahend 


R6<31:8> 
R $3158 - Byte containing decimal digit pair for minuend 
R7<31:8> - — — 


VAXSDEC IMAL _ARI THMETIC 
vou0oT t= 
50 71 
— 
56 0000°CF46 
57 0000°CF47 
11 
57 Oe 
07 
57 64 of 
58 1 
75 0000'°CF47 
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SUB_PACKED “ay! 
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a 8 
Decimal Arithmetic Instr 
- Subtract Two Bytes Con 


=JAN-19 
38-1982 


(RB is either 
Output Parameters: 


Side Effects: 


by this rout ne 


result is nonzero so that the 


Be Se Ge Se Oe Oe Se Se Se Be Se Ge Se Se Ge Se Se Se Be Se Se Se Se Se Se Se Se Se Be Oe Se Se Se 


SUB_PACKED_BYTE_STRING: 


MARK POINT ADD_SUB_BSBW_24 
Wiel =-(R1) R6 : 
MARK POINT ADD_SUB_BSBw_24 
ROVIBL =(R3),R7 


SUB_PACKED BYTE_R6_R 


mOVB DECIMAL SPACKED_T0_BINARY_TABL 
SUBB 4 s«aR6, R? : 
SUBBséRB.R? : 
B.ss 6=._:-:108 3 
CLRB OR : 
BRB 208 : 
10$: ADDB #100,R7 ; 
mOVB = #1, RB : 
208: KOVB 


ek — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — 


17:27: 
bb :44;$4 
R5 = Address one byte beyond location to store difference 
RB - BORROW from ee | ie of previous byte 

or 1) 


in difference string 


— — 
of fy 


eas Macro y04-00 
EMULAT .BUGSRC JVAXARITH.MAR; 4 


RB - Either 0 or 1, reflecting whether this most recent 
subtraction resulted in a BORROW from the next byte. 


R6 and R7 are modified by this routine 


R5 - decreased by one to point to current byte 
RO, R2, RS, ene R9 (and, of course, R10 and R11) are preserved 


1. If both of the input bytes contain only legal —— then 


at moss once to put 


1 Assumptions: 
¢ This routine makes two imzortant assumptions. 
005 
B06 it is only necessary to aid 1 
8 possible differences in tne range 0..99. That is, 
009 0-99 - 1 = -100 


2. The result will be checked in some way to determine whether the 


Z-bit can have its correct setting. | 


Get byte from first string 


: Get byte from second string 


moves “DEctnis spaced, TO_BINARY_TABLECR6),- 


TASLEER DI digits to binary 


onvert digits to binary 

i their difference 

Include BORROW from iast step 
BORROW 


; Branch if need to 
No 


next time 


; Join common exit code 


Put R7 into interval 0..99 
Propogate BORROW to next step 


SECIRAL SD ORY. TO PACKED TABLECR7),- 


7 Store converted sum byte 


VA 
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23 
(11) 
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RESULT = Store Decimal String 


OOOO OOOCOOOOOOCOCOCOSOO 1 


PIPIPIPIPIPIPPIPIAIPPIPIPPINPINIPIPIPIPIPIPNIPINPININYD 


DDD D PPP PV PUPVPUSV SUSU STASIS SUSIE SUAS ASUS ASIASIASIST SIRS SISOS SISOS 
B88 ———————⏑ ADA AAAI EE 
0 00 NEW 9 OD NA MES WIN 9 OD NA NEW NAME" O OD NOUS" 


SrmnvoCCCWSOneRheehherrrrrrrrrerrrrerrrreeerrrernrnrreeenreen 
— — — — — — — — — — — —— — — — — — — — — — — — — — — — — — — ee ee — —— —— ——— — — — — 


SSoOSSSOOSSSO OGOOCOCOCOCCOCOCOCOCOOCOOCOSOSOOOOOOOoOOOoOOoOO 


0 
Q 
0 
0 
0 
i] 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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MET 


SEP- EMULAT .BUGSRC JVAXARITH.MAR; 1 
; . SUBTITLE STORE_RESULT = Store Decimal String 
; Functional Description: 


This routine takes ’ pecked decimal string that typically contains 
the result ef an arithmetic operation and stores it in another 
decimal string whose descriptor is specified as an input parameter 
to the original arithmetic operation. 


The string is stored from the high address end (least significant 

oieite? to the low address end (most significant digits). This order 

allows all of the special cases to be handled in the simplest fashion. 
Input Parameters: 


R1 - Address one pyte gexene —* address end gf input string 
(Note that this string must be at least 17 bytes long.) 


R4<4:0> = Number of digits in ultimate destination 
RS - Address one byte beyond destination string 


R11 = Contains saved condition codes 
Implicit Input: 


The input string must be at least 17 eytes long to contain a potential 
carry out of the highest digit when do ng an add of two large numbers. 
This carry out of the Last byte will be detected and reported as a 
decimal overflow, either as ar exception or simply by setting the V-bit. 


The Least significant digit (highest addressed byte) cannot contain a 
sign digit because that would cause the Z-bit to be incorrectly cleared. 


Output Parameters: 
RI1<PSL$V_Z> - Cleared if a nonzero digit is stored in output string 
R11<PSL$V_V> = Set if a nonzero digit is detected after the output 
string is exhausted 


A portion of the result (dictated by the size of R4 on input) is 
moved to the destination string. 


Be Se Se Se Ge Ge Ge Se Se Ge Se Se Se Ge Se Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se Se Ge Sse Ge Ge Ge Ge Se Se Ge Se 


STORE _RESULT: f 
INCL RG » Want number of ‘‘complete’’ bytes in 
ASHL #-1,R4,R0 3; output string 
BEQL 308 : Skip first loop if none 
MARK _POINT ADD. SUB_BSBU_24 

108: MOVB -(R1),-(R5) Move the next complete byte 


BEQL 208 
BICB #PSL$M_Z,R11 
208: SOBGTR RO,10$ Keep going? 


308: BLBC R4,508 ; Was original R4 odd? Branch if yes 
MARK_POINT ADD_SUB_BSBW_24 


Check whether to clear Z-bit 
Clear Z-bit if nonzero 


¢ 9 
VAXSDEC IMAL _ARITHMETIC = VAX-11 Packed Decimal Arithmetic Instr §8-JAN-1985 17:27:01 VAX/VMS Macro v04-00 Pa 5 
—W STORE RESULT = Store Decimal String — 00:46:44 EMULAT .BUGSRCJVAXARITH.MAR; 1 — (B) 


71 «FO 88 er 1096 BICBS #*B11110000,-(R1),-(R5) ; If R4 was even, store half a byte 
13 1097 BEQL 408 : Need to check for zero here, too 
58 ba 8A 72 1 a8 BICB #PSLSM_7Z,R11 ; Clear Z-bit if nonzero 
75 (109 MARK_POINT ADD_SUB_BSBW_24 
61 FO 8F 3 75 (1 9 403: BITB #°B111100007 (RI) 3 If high order nibble is nonzero, 
13 1 iad 1 BNEQ 70$ 3 eee then overflow has occurred 
78 11 § : The entire destination has been stored. We must now check whether any of 
7B 1104 ; the remainin input string is nonzero and set the V-bit if nonzero is 
7B 1105 ; detected. Note that at least one byte of the output string has been examined 
8 A 1 § : in all cases already. This makes the next byte count calculation correct. 
54 07 . 78 11 3 50$: tect RG ; Restore R4 to its original self 
54 604 8 EF 8 ip 11 EXTZV #1,44,R4,R0 3; Extract a byte count 
50 10 50 83 0 ¢ 1119 SUBB3 = RO, #16, RO ; Loop count is 16 minus byte count 
§ 6 Wg : Note that the loop count can never be zero because we are testing a 17-byte 
3* 3 string and the largest output string can be 16 bytes long. 
6 1115 MARK _POINT ADD_SUB_BSBW_24 
71 9 $ 1116 60$: TSTB -(R1) 3; Check next byte for nonzero 
04 ig 88 1117 BNEQ 70$ 3; Nonzero means overflow has occurred 
f250 5 3 1113 SOBGTR RO,60$ 3; Check for end of this loop 
05 3 sD i ’ RSB ; This is return path for no overflow 
5B 02 88 038 11 ¢ 70$: BISB #PSLSM_V,R11 : Indicate that overflow has occurred 
05 0291 11 RSB 3 ee. and return to the caller 


do 9 
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vOue08! ~ CHECK _WRITE_ACCESS = Check Writability g- 2081382 boi26: 44 YEMULAT.BUGSRC VAXARITH.MAR; 1 . (3%) 
ot 2 1 4 «SUBTITLE = CHECK_WRITE_ACCESS = Check Writability of Decimal String 
Set 3 * 3; Functional Description: 
3LJKO004 3 os a The ADDP4 and SUBP4 instructions are unique in that they are the only 
3LJKO04 9 § 3 two instructions thet read and write the same packed decimal string. 
3LJKO004 9 of & They are, in fact, implemented as ADDP6 and SUBP where the second 
3LJK004 9 of 8 input string, ADDend2 or MiNuend, and the result string, SUM or 
3LJKO04 9 7 § DIFference, are the same. But ADOP6 and SUBP6, as well as all other 
SLJKOO4 9 -19 ; acked decimal instructions except ADDP4 and SUBP4, produce 
3LJKO04 9 oft 2 NPREDICTABLE results when an output string overlaps any input string. 
eee 9 18 $ with ches interpretation, ADDP4 and SUBP4 are the only packed decima 
sLJK 9 old 8 instructions that permit over Lapping packed decimal strings. (Note 
3 2 1183 that the result string, SUM or Difference, may not overlap the first 
—353.3. 1? 3 input string, ADDend or SUBtrahend.) 
3LJKO0045 029 19 3 The implementation of ADDP4 and SUBP4, interpreted as ADDP6 and SUBP6 
3LJK0045 029 018 3 with ever are ne strings, needs to protect itself from modifying 
3LJKO065 029 019 8 memory until the entire instruction can execute to completion. 
3LJK00465 029 -20 ; Otherwise, the instruction will be restarted with a different initial 
3LJKO0G5 029 +$) 3 state than it first had. This is accomplished by eroding the result 
3LJK0045 029 ° $ : string for write access before execution begins. This routine receives 
age rt 8 4 36 3 control if that PROBEW fails. 
3LJK0045 $59 0@9 8 In the interest of simplicity, the PROBEW that is executed always uses 
3LJKO045 $33 26 ; 6 as the byte count of the result string. This routine can then be 
tet th; 8 3 ° i 3 called not only when the output string is inaccessible but also when 
3LJK0065 029 $3 3 The output string is shorter than 16 bytes. 
3LJK0045 029 om 3 
3LJKO00465 029 J The address of the output string is within 16 bytes of the 
3LJK0045 029 " § ; end cf the page. 
3LJK0045 $34 “39 8 . 
3LJKO045 029 3 The page containing the string is writable. 
3LJK0045 029 one 
3LJKO045 029 one 8 The next page is not writable. 
3LJK0045 029 oot é P 
3LJK0045 029 38 ; This routine distinguishes inaccessible strings from this rare case of 
3LJK0045 029 ose 3 a PROBEW failure. 
3LJK0045 029 -40 ; 
3LJK0045 9 41; In other words, this routine checks the write accessibility of packed 
3LJK00465 9 4g 3 decimal strings. If the entire string is writable, control is passed 
3LJK0045 029 045 ; back to the caller where emulation continues. If the string is not 
3LJK0065 8 9 044 ; writable, an access violation is generated. 
3LJK0065 9 45; 
3LJK0065 029 46 3; Input Parameters: 
3LJK0045 029 47 ; 
3LJK00465 9 48 : R4 = Digit count of result string 
38 a 3 RS - Address of most significant digit in result string 
it ykooes 9 -51 ; Output Parameters: 
8 2 38 
3LJK0045 9 one a None 
3LJK0045 9 34; 
334 3 : Implicit Ouptut: 
3LJK0065 9 “3 ; If the string with its correct byte count is writable, control 
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eci 
ESS = Check Writability 5-SEP-1984 
is returned to the caller. 


If the gtring with its correct digit Coyne is not writable, then the 
string is accessed to force an access violation to occur. fhis will 
cause control to be transferred — to the access ytolation 
handler at the end of this module that will back out the instruction 
so that it can be restarted. 


Assumption: 


EMULAT .BUGSRCJVAXARITH.MAR; 1 


This routine assumes that the check for jt legal digit count has 
already been made so that R4 is between 0 and 31 inclusive. 


2 
o 
cad 
oO 


It is necessary to actually touch the inaccessible page so that the 
correct reason mask is generated. Logic that uses the PROBEW 
instruction can determine the inaccessible virtual address but is 
unable to gt bp «ba for example, between Length violations and page 
protection violations. 


CHECK_WRITE_ ACCESS: 
PUSAL 4 
EXTZV #1, #4,R4,R4 


Save the gigit count 
Convert digits to bytes 


Count the byte that contains the sign 
Check writability of the ape | 
Branch if string cannot be written 
Restore saved R 

Return to caller. String is OK 


INCL R4 

PROBEW #0,R4,(R5) 
BEQL 

MOVL (SP)+,R4 
RSB 


The first and last bytes of the string are touched (written) with an 
ADDB2 #0,xxx 


instruction. This instruction causes the correct access violation reason 
mask to be generated but does not nog' ty the contents of locations that are 
accessible. Note that at least one of the following two ADDB2 instructions 
; is guaranteed to generate an access violation, Srensverr ine control in a 

0 


; rather complicated way to the ADD_SUB_BSBW_4 access violation handler. 
MARK_POINT ADD_SUB_BSBW_4 

108: ADDB2 #0,(R5) : Touch the first byte 
MARK _POINT ADD SUB _BSBW._4 
ADDB2 8 #0,(RS)CR4 ; Touch the Last byte 


3 We should never reach here unless the PROBE instruction is broken. We 
3 will leave this code Rete in for now bus remove it at the same time we 
3; change the other two HALT instructions in this module into software 

3; generated machine checks exceptions. 

Tig teeeeerres BEGIN TEMP seenecenar 

Ti: THE FOLLOWING HALT INSTRUCTION SHOULD BE REPLACED WITH THE CORRECT 
333 ABORT CODE. 


F 9 
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04- ~ CHECK_WRITE_ACCESS = Check Writability 5-SEP-1984 00:44:34 CEMULAT.BUSSRCJVAXARITH.MAR; 1 ) 
7LJK00465 00 O2AC .114 halt ; This will cause an OPCDEC exception 
3LJKO04 4 o39D 833 * 
sLJKO04 O2AD .116 Sig teeeererere END TEMP seeeererece 
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ly Packed “SEP-1 EMULAT .BUGSRCJVAXARITH.MAR; 1 (14) 
; . SUBTITLE VAXSMULP = Multiply Packed 

; Functional Description: 

The multiplicand string specified by the multiplicand length and 
mult ip icand address qnerends is nul eiptieg by the multiplies string 
specified by the multiplier length and multiplier address operands. e 
product string specified by the product length and product address 
operands is replaced by the result. 


Input Parameters: 


RO = mulrlen.rw Number of digits in multiplier string 
R1 = mulraddr.ab Address of multiplier sec ing 
R2 = muldlen.rw Number of digits in multiplicand string 
R5 = muldaddr.ab Address of multiplicand ype 
R4 = prodlen.rw Number of digits in product string 
R5 = prodaddr.ab Address of product string 
Output Parameters: 
RO = 0 
Ri = Address of the byte containing the most significant digit of 


. he multiplier string 
= 
R53 = Address of the byte containing the most significant digit of 
‘ 4* multiplicand string 

= 


RS = Address of the byte — the most significant digit of 
the string containing the product 


Condition Codes: 


N <= product string LSS 
Z <= product string EQL 
V <= decimal overflow 


<e 
Register Usage: 
This routine uses all of the general registers. The condition codes 
are computed at the end of the instruction as the final result is 
stares n the product string. R11 is used to record the condition 
codes. 


Notes: 


— 
. 


This routine uses a large amount of eyeck epece to allow storage of 
intermediate results in a convenient form. peci tically. each ug't 
pair of the longer input gtr ing is stored in binary in a longword on 
he stack. In addition, 32 longwords are set aside to hold the product 
mtorgesrete result. Each longword contains a binary number between 
an ° 


After the multiplication is complete. Each longword is removed from 
the stack, converted to a packed dec aa} pair, and stored in the 
output string. Any nonzero cells remainin 


g on the stack after the 


4 9 
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AD 11 ¢ ; output string has been completely filled are the indication of decimal 
8* 1} Z ; over flow. 
AD 1185: The purpose of this method of storage is to avoid decimal/binary or 
AD 11 § 3 even byte/ Longword conversions during the calculation of intermediate 
— 4 results. 
AD 11 5 : 2. Trailing zeros ere —**aN from the larger otr ine. ALL zeros in 
AD 1190 ; the shorter string are eliminated in the sense that no arithmetic 
AD 113) 3 is performed. The output array pointer is simply advanced to point 
AD 11 § 3 to the next higher array element. 
AD 1134 * 
AD 1195 VAXSMULP:: 
OFFF 8F BB 4 1138 PUSHR #*A<RO,R1,R2,R3,R4,R5,R6,R7,R8,RI,R10,R11> ; Save the lot 
1 1138 ESTABLISH_HANDLER - ; Store address of access 
4 38 ARITH_ACCVIO i violation handler 
8¢ ! 0 ROPRAND_CHECK R4 i; Insure that R4 is LEQU 31 
ci 1 : ROPRAND CHECK R2 ; Insure that R2 is LEQuU 31 
C9 1204 MARK_POIN MULP_BSBW_0 
FD34° 30 $? } 5 BSBW DECIMALSSTRIP_ZEROS_R2_R3 ; Strip high order zeros from R2/R3 
cc (1 ROPRAND CHECK RO :; Insure that RO is LEQuU 31 
D4 1 3 MARK_POINT MULP_BSBW_0 
FD29" 30 iF ! 8 BSBW DECIMALSSTRIP_ZEROS_RO_R1 i Strip high order zeros from RO/R1 
50 04 H EF 4 1211 EXTZV #1,#4,R0,R0 ; Convert digit count to byte count 
8 06 4: 1318 INCL RO : Include least significant digit 
52 04 5 EF 4 1214 EXTZV «#1, #4,R2,R2 ; Convert digit count to byte count 
5 D6 : } F INCL R2 : Include least significant digit 
52.65 D1 —5 1 19 CMPL RO,R2 : See which string is larger 
1A eB 1 18 BGTRU 3$ : R2/R3 describes the penvor string 
58 7D EA 121 MOVa ag Re : RB and RO describe the longer stri 
7E 7D ED 1220 mova RO,-(SP) ; Shorter string descriptor also sav 
06 11 : } 1 BRB 6$ 
38 28 7d Fe 1 : 3$: MOva + Soa : RB and RO describe the longer stri 
E 7D : : 3 novo R2,-(SP) . Shorter string descriptor also sav 
: ! § 3; Create space for the output array on the stack (32 longwords of zeros) 
50 08 00 —4 68: MOVL #8,RO ; Eight pairs of quadwords 
7E 7C FB 1 108: CLRQ -(SP) 3; Clear one pair 
43 48 FD 1 CLRQ -(SP) 3 eee and gnother 
F9 5 F FF ! g SOBGTR RO,10$ ; Do all eight pairs 
57 SE 00 5% ' 3 MOVL SP,R7 ; Store beginning of output array in R7 
1256 ; The longer input array will be stored on the stack as an array of 
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nt genteine number between 9 and 99 
representing a pairo d decimal stri 


r 
digits in the original packe . 
Pecquse the uni fF i? stored with the 4 in packed dec nal fornat, 
muittoteins tas to shift the number as we store it. This is accomplished by 


ng the number by ten. 

The longer array is described by R8& (byte count) and RO (address of t 

sontticent digit Er 5 . mos 
ADDL3 1 * 
MOVL RB ,R4 


Be Se Se Se Se Sete te vo 
— 


: Point RS beyond sign digit 
3 RS contains. the losp count 


3 An ervey of longwords is allocated on the stack. R3 starts out pointing 
¢ at the longword beyond the top of tne stack. The first remainder, ranteed 
3 to be zero, is ‘stored’ here. The rest of the digit pairs are stored safely 
; below the top of the stack. 


MNEGL RB RB ; Stack grows toward lower addresses 
MOVAL (SP) R3}.SP : Allocate the space 
SUBL #4,SP,R ; Point RS at next lower longword 
MARK POINT MULP_R8 
20$: MOVZBL - oR ;_Get pert digit pair 
MOVZBL DECIMALSPACKED_TO_BINARY_TABLEL[R1),- 
7 Convert digits to binary 
EMUL #10,R1,R2,R0 ; Multiply by 10 
EDIV #100,R0,R2,(R3)+ : Divide by 100 
SOBGTR R4,20$ 
MOVL R2,(R3) ; Store final quotient 
MOVL SP,R9 ; Remember array address in R9 
PUSHAL (SP)CR8) : Store start of fixed size area 


; Check for trailing zeros in the input array stored on the stack. If any are 
: present, they are removed and the product array is adjusted accordingly. 


30$: TSTL (R9)+ : Is next number zero? 
BNEQ 408 3 Leave loop if nonzero 
ADDL #4,R7 3; Advance output pointer to next element 
SOBGTR R8,30$ ; Keep going 


; If we drop through the Loop then the entire input array is zero. There is 
3 no need to perform ony arithmetic because the product will be zero (and the 
3; output array on the stack starts out as zero). The only remaining work is 

3; to store the result in the output string and set the condition codes. 


BRB 708 3; Exit to end processing 


¢ ; Now multiply the input array by each successive digit pair. In order to 


3 ; RB and R 


9 


s gs tow R10 to continue to locate ARITH_ACCVIO while we execute this loop, it 
3 mocesaery to perform a grat’ amount of register juggling In essence, 
: switch the identity of the string that they ibe. 


; Readjust input arra inter 
; Readiy /RO Soocripter on stack 


escr 


40$: SUBL #4,R9 
MOVQ R8,-(SP) 
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58 A 1 8(SP),RB 3; Point R8 at start of 32-longword arra 
58 9980 cs 1 : mova — : Ge descriptor that follows that array 

9 ! : ADDL2 R8,R9 3; Point RY beyond sign byte 

5387 1 38 50$ MOVAL (R7)+,R3 ; Output array address to R3 

51 79 : 3 Wielo 32— —— Next digit pair to R1 

~ 3 Nex air to 
5 0000°CF4I 1598 MOVZBL DECIMALSPACKED_TO_BINARY TABLECRII,- 
1 , R6 ; Convert digits to binary 
06 1 BEQL 608 : Skip the work if zero 
54 6€ 1 § MOVQ (SP) ,R4 : Input array descriptor to R4/R5 
8198 1 BSBW EXTER STRING MULTIPLY 3; Do the wor 
E9 58 : 1 60$ SOBGTR R8,50$ ; Any more multiplier digits? 

SE 08 ' ADDL #8,SP : Discard saved long string descriptor 

SE 6€ ! 708: MOVL (SP) ,SP ; Remove input array from stack 
1 19 ; At this point, the product string is located in a 32-longword array on 
131] ; the top of the stack. Each longword corresponds to a pair of digits in 
1 \ 3; the output ones As digits are removed from the stack, they are checked 
1315 ; for nonzero to obtain the correct setting of the Z=-bit. After the output 
1314 ; *14 has been filled, the remainder of the product 2 is removed from 
: 12 ; the stack. If a nonzero result is detected at this stage, the V-bit is set. 

59 20 1 i$ MOVL #32,R9 ; Set up array counter 

54 0098 CE 1 18 MOVO << <$2e4> + - ; Skip over 32-longword array 

131 <2t4> + = ; and saved string descriptor 
1320 <4*4> >(SP),R4 ; to retrieve original R4 and R5 
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43 } : d . SUBTITLE Common Exit Path for VAXSMULP and VAXSDIVP 
7D 1 : ; The code for VAXSMULP and VAXSDIVP merges at this point. The result is stored 
7D 1 3; in an ocrey * lLongwords at the top 5° the stack. The size of this array is 
0 } § : stored in & - The original Ré and R 5 heve been retrieved from the stack. 
! : Input Parameters: 
7D 1 : R4 = Contains byte count of destination string in R4& <1:4> 
7D 1 3 8 - Address of most significant digit of destination string 
7D : § : - Count of longwords in result array on stack 
tb : : : Contents of result array 
2 ; Implicit Input: 
7D 1 : Signs of two input wasters (multiplier and multiplicand or 
7D (1 } : — div lear’ ond dividend) . , 
Blah 
70 #1 MULTIPLY _DIVIDE_EXIT: 
58 +3 7d #1 8 MOVPSL “R11 ; Get current PSL 
06 00 é 44 1344 INSV #PSLSM_7,40,86,R11 ; Clear all codes except Z-bit 
4 1345 ee," pence - ; Store address of access 
1 § —R ; _violation handler again 
54 64 : EF ; 1 EXTZV | ue TR4R ; Excess byte count to R3 
13 1 BEQL ; Skip to single digit code 
57 55 C1 1 8 ADDL 33 R5,R7 3 Remember address 3 sign byt 
> wi be ; 9 ADDL #1. R7.RS ; Point RS beyond end of A.A string 
51 a 9 3 1 § 80$: MOVL (SP)+,R1 ; Remove next vaiue from stack 
1 98 «(1 BEQL $ ; Do not clear Z-bit if zero 
58 04 8A 90 : : BICB2 #PSL$M_7,R11 ; Clear Z-bit 
1 2$ MARK _POINT ad 
75 0000°CF41 90 1 3 90$: MOVB™ DEC CIMALSBINARY 107 -PACKED_ TABLECR1),- 
1 $ tore converted sum byte 
07 135 DECL + : pre less element on the stack 
Hs 1§ 1 BLEQ ; Exit loop if result array exhausted 
€B 5 FS : 1 SOBGTR RS 80s : Keep going? 
2254 19 ' § 100$:  B8LBC R4,1208 ; Different for even digit count 
1365 : The output string consists of an odd number of digits. A complete digit 
1 3 pa r can be eeered in the most significant (lowest addressed) byte o 
! ; the product string. 
51 9 1 ROVL (SP)+,R1 ; Remove next value tron stack 
1 1 BEQL 1 : Do not clear Z-bit if zero 
58 8A ' BICB2 #PSLSA_7,R11 : Clear 2-bit 
137 MARK _POINT RY 
75 OOO0'CF41 90 1374 1108.  MmOvB DECIMAL SBLNARY 107 PACKED. TABLECR1),- 
1375 > Store converted sum byte 
59 07 1 DECL Rr9 : One Less element on the stack 
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15 BLEQ 1168 3; Exit loop if result array exhausted 
% 11 BRB 1408 5 aos Gvertion check 


3; This | executes if the result areas has fewer elements than the output 
; string, The remaining bytes in the output string are filled with zeros. 
3; There is no need for an overflow check. 


MARK _POINT MULP_DIVP_8 
11468: CLRB -(R ; Store another zero byte 
1168: SOBGEQ R3,1148 ; Any more room in output string 


BRB 1508 ; Determine sign of result 


; This code path is used in the case where the output digit count is 0 or 1. 
; RS must be advanced 


1258: MOVL RS,R7 ; Remember gédress of output sign byte 
INCL R5 ; Advance R5 so common code can be used 
BRB 100$ ; Join common code path 


dO 
D6 
11 
; The output string consists of an even number of digits. Only the low order 


; nibble is stored in the most significant (lowest addresses) byte. A zero is 
; stored in the * order nibble. If the high order digit would have been 
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ret ; nonzero, the V-bit is set and the overflow check is bypassed because there 
401 ; are faster ways to clean the stack if we do not have to check for nonzero 
rt) 3; at the same time. 
51 BE v0 0 404 120$:  MOVL (SP)+,R1 ; Remove next value from stack 
51 0000°CF41 90 405 novs DECIMALSBINARY_TO_PACKED_TABLE(R1),- 
0308 14 ; Obtain converted sum byte 
DB 14 MARK_POINT MULP_DIVP_R9 
51 FO of 88 44 408 BICBS) «= #*XFO,R1,-(R5) ; Store byte, clearing high order nibble 
03; 13 E 409 BEQL 1308 : Do not clear Z-bit if zero 
04 Ee 410 BICB2 #PSLSM to ; Clear Z-bit 
51 FO &F 3 E 411 1308: BITB #*xFO,R : Is high order nibble nonzero? 
06 3 e9 tig BNEQ 1 ; Yes, go set overflow bit 
59 OD €B 141 DECL R ; One less element on the stack 
D7 =—s «15 ED 1414 BLEQ 1168 ; Exit loop if result array exhausted 
080 11 R 888 140$ : Check rest of result array for nonzero 
O3F1 419 ; If we detect overflow, we need to adjust R9 to reflect the nonzero lonqword 
O3F1 $18 ; removed from the stack before we enter the next code block that sets the 
4 Vedit and cleans off the stack based on the contents of R9. 
59 07 4! : 11338: DECL RY ; One more longword removed from stack 
F & § ; A nonzero digit has been discovered in a position that cannot be stored in 
F 424 ; the output string, Set the V-bit. remove the rest of the product ortey from 
f 425 ; the stack, and join the exit processing in the code that determines the sign 
: ? $ 3; of the product. 
58 0 88 F 428 135%: B1SB ors en 19 : Set the overflow bit 3 
SE 6&4 bf F6 16 OVAL 38 R9},SP : Clean off 2* product string 
MA BaB 1508 ; Go to code that determines the sign 
FC 1432 ; The remainder of the product array must be removed from the stack. A nonzero 
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+ result causes the V-bit to be set and the rest of the loop to be skipped. 
; Note that there is always a nonzero loop count remaining at this point. 


1408: TSTL 1835" ; Is next longword zero? 
oop 


AX/VAS Macro 


BNEQ 1538 i; No, leave | 
SOBGTR R9,140$ 
; The final product string has been stored and the V- and Z-bits have their 
; correct settings. The s mor the product must be determined from the 
r 


; signs of the two input strings. Opposite signs produce a negative product. 
+ Same signs (in any representation) produce a plus sign in the output string. 


8,SP ; Discard saved string descriptor 
MOVL #12,R6 ; Assume final result is positive 
mova (SPS RO ; Retrieve original RO/R1 pair 
#1,#4,R0,R0 ; Get byte count for first input string 
: Point R1 to byte containing sign 


R oR1 
MARK_POINT ULP IVP. 
BICBS #°B11110000,TR1),RO ao contains the sign “digit” 
| 
| 


CASE RO, TYPE=B,LIMIT=#10,<- ; Dispatch on sign digit 
26$,- : 10 => sign is “s"' 
10$,- ; 11 => sign is ‘'="' 
20$,- 3 \¢ => sign is ‘‘s"* 
10$,- : 13 => sign is ‘=" 
3s ta : 14 => sign is ‘‘+" 
€ 0$,- : 15 => sign is *'"’ 
210$: MOVL #1 RS ; Count a minus sign 
BRB 236$ ; Now check second input sign 
2208: CLRL RG ; No real minus signs so far 
2308: mova 4338 ; Retrieve original R2/R3 pair ; 
EXTZV #1,#4,R2,R2 : Get byte count for second input string 


L R2,R3 : Point R3 to byte containing sign 
MARK _POINT Sti pty” 0 : 
BICBS #*B11110000,TR3) ,R2 : R2 contains the sign ‘digit’ 


CASE Re TYPE=B,LIMIT=#10,<- , Dispatch on sign digit 
$,- : 10 => sign is (+"" 
40$,- : 11 => sign is ‘=" 
50$,- 3 \¢ => sign is ‘‘s"’ 
40$,- ; 15 => sign is ‘'="' 
208 -= ; 14 => sign is ‘‘+"' 
¢ 0$,- ; 15 => sign is ‘*+"* 
3383 INCL R4 ; Remember that sign was minus 
50$: BLBC R4 2608 ; Even parity indicates positive result 
BBS #PSL$v_2,R11,2708 ; Step out of Line for minus zero check 
BISB #PSLSM_N,R11 ; Set N-bit in saved PSW 
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56 06 255$: INCL R6 : Change sign to minus 


8 MARK _POINT MULP_DIVP_0O 

2608: INSV™ ae (R7J ; Store sign in result string 
CLRL ote ; Set saved R4 to zero 
BRW Vas DECIMAL_EXIT 3; Join common exit code 


90 
3 
38 ; If the result is negative zero, then it must be changed to positive zero 
94 : unless overflow has occurred, in which case, the sign is left as negative 
+ but the N-bit is clear. 

39 

98 


270$: 885 #PSL$V_V,R11,255$ | , ee sign negative if overflow 
BRB 260$ : Sign wi 
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LY = Multiply a Stri 5-SEP=1 EMULAT..BUGSRC JVAXARITH.MAR; vi 
. SUBTITLE EXTEND_STRING_MULTIPLY = Multiply a String by a Number 

5 

5 

5 


i 


= VAX-11 P 
EXTEND_STR 


Functional Description: 
This routine multiplies an gerey of numbers (each array element LEQuU 
) by a number (also LEQU 99). The resulting product gcray is added 
to another array, each of whose elements is also LEQU 99. 
Input Parameters: 
R3 - Pointer to output array 
R4 - Input array size 
RS - Input array address 
R6 - Multiplier 
Output Parameters: 
None 
Implicit Output: 
The output array is altered. 
An intermediate product array is te yee by multiplying eacn input 
er. Ea 


array element by the multipl ch product array element is then 
added to the corresponding output array element. 


FRELLLELLELLRRLKRKRRLK KR RRE 


pe 


OOOCooccocoo 


be Side Effects: 
8 R3, R4, and RS are modified by this routine. 
8 R6 is preserved. 


047 RO, R1, and R2 are used as scratch registers. RO and R1 contain the 


quadword result of EMUL that is then passed into EDIV. 
Assumptions: 
This routine assumes that all array elements Lie in the range from 0 


to 99 inclusive. (This is true if all input strings contain only legal 
decimal 33 The arithmetic performed by this routine will 


PRESERR RRR RRP RRR RRR RRR EE 


ee ee ee 
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A number LEQU 9999, when divided by 100, is guaranteed to produce both 
@ quotient and a remainder LEQU 97. 
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4 
: maintain this assumption. That is, 
4 input array element LEQU 99 
2 times multiplier LEQU 99 
4 product LEQU 99*99 
rt plus carry LEQU 99 
4 modified product LEQU 99*100 

plus old output array element LEQU 99 

new output array element LEQU 99#101 = 9999 
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EXTEND_STRING_MULTIPLY: 
CLRL ~ R2 


— 
— 
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vw 
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ADDL2 
EDIV 
SOBGTR R4,10$ 


usual case, t 


significant looping occur. 


ADDL2 R2, (R3) 
cMPL ss (R38), #100 


BGEQU § 308 
RSB 


~ 
So 
hod 


Ww 
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SUBL #100, (R3)+ 
INCL (R3) 
BRB 208 
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EMUL R6,(R5)+,R2,R0 


#1007RO,R2,.(R3)4 
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; Initial carry is zero 
; Form modified product (RO LEQU 9900) 


; Add old output array element 
; Remainder to output array 


Quotient becomes carry 
Keep going? 


This — code looks more complicated than it actually is. In the 

e routine exits immediately. In the event that a carry 
occurs, one additional entry in the output array will be modified. ly in 
the rare case of an output array consisting of a string of 99s will any 


Add final carry 
Do we overflow into next digit pair? 


Branch if carry 
Otherwise, all done 


Readjust entry and advance pointer 


Propogate gt 
ess and test this entry for overflow 
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8 «SUBTITLE VAXSDIVP = Divide Packed 
8 Functional Description: 
49 The dividend string specified by the dividend length and dividend 
9 address operands tp Paivided by the divisor string specified by the 
49 divisor Length and divisor address operands. The quotient string 
49 specified y the quotient length and quotient address operands is 
8 replaced by the result. 
8 ; Input Parameters: 
49 RO = divrlen.rw Number of digits in divisor string 
4 R1 = divraddr.ab Address of divisor strin 
49 R2 - divdlen.rw Number of digits in dividend string 
9 R35 - divdaddr.ab Address of dividend string 
R4 = quolen.rw Number of digits in quotient string 
R5 = quoaddr.ab Address of quotient string 
Output Parameters: 


RO = 0 
R1 = Address of the byte containing the most significant digit of 
phe divisor string 


= 
RS = Address of the byte containing the most significant digit of 
Rs the dividend string 


: RS = Address of the a te —5— the most significant digit of 
; the string containing the quotient 


; Condition Codes: 


0 SO ODNAUNE NAUL 


N <= quotient string LSS 0 
Z <= quotient string EQL 0 
V <= decimal overflow 


<= 


tt td dd nd nd ed nd IB HOODOO OOOCOOCOOCOOOOOOOMMM@@cccc. <*e 
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; Register Usage: 
This routine uses all of the general registers. The condition codes 
are conqutes at the end of the instruction as the final result is 
shares n the quotient string. R11 is used to record the condition 
codes. 

Algorithm: 
This algorithm is the straightforward approach described in 


The Art of uter Programmin 
— Egition” ict 


Volume 2 / Seminumerical Algorithms 
Donald E. Knuth 
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Reading, Massachusetts 


g 


The choice of a Longuerd array to store the auotient deserves a 
comment. In VAXSMULP, a longword array was used because its elements 
were used directly by MULP and DIVP instructions. The use of longwords 
eliminated the need to convert back and forth between longwords and 
bytes. In this routine, the QUOTIENT DIGIT routine returns its result 
in a register, which result can easily be stored in whatever way is 
convenient. By using longwords instead of bytes, this routine can use 
the same end processing code as MULP, a sizeable savings in code. 


» ENABLE LOCAL BLOCK 


"this code path is entered if the divisor is zero. 
Input Parameter: 

; (SP) = Return PC 

; Output Parameters: 


O(SP) = SRMSK_FLT_DIV_T (Arithmetic trap code) 
4(SP) = Final state PSL 


PEASE LEE KW << Oo 


OOD NIA ME WP SO OOD NA NEW OD NAUSEA CO ODNA UE WHO 00 NOUS WT" 00 


66 : 8(SP) = Return PC 
8 Implicit Output: 
e : Control passes through this code to VAXSREFLECT_TRAP. 
672 ° 
675 DIVIDE_BY_ ZERO: 
OFFF 8F 67 POPR #*A<RO,R1,R2,R3,R4,R5,R6,R7,RB,RI,R1I0,R11> 
67 ; Restore registers and reset SP 
7E 67 MOVPSL -(SP) 3 Save final PSL on stack 
8 67 PUSHL #SRMSK_FLT_DIV_T 3; Store arithmetic trap code 
f857 of BRW VAXSREPLECT_TRAP ; Report exception 
680 ; If the divisor contains more nonzero digits than the dividend, then the 
681 ; q tient will be identically zero. Set * the stack and the registers (R4, 
é 3 » and R9) so that the exit code will be entered to produce this result. 
7E 1$: CLAL -(SP) : Fake a quotient digit 
59 01 ? MOVL #1,R9 ; Count that digit 
FECC BRW MULTIPLY_DIVIDE_EXIT 3; Store the zero in the output string 
4 VAXSDIVP: : 
OFFF 8F ? PUSHR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8,R9,RIO,R1I> ; Save the lot 
8 ESTABLISH_HANDLER - ; Store address of access 
$6 ARITH_ACCVIO : violation handler 
O38 ROPRAND_CHECK  R4 : Insure that R4 is LEQU 31 
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ROPRAND_CHECK R2 : Insure that R2 is LEQU 31 
ARK_POINT DIVP BsBw 0 
BSBW" = DECIMALSSTRIP_ZEROS_R2_R3 ; Strip high order zeros from R2/R3 
ROPRAND CHECK RO ; Insure that RO is LEQU 31 
MARK _POINT DIVP_BSBW_0 
BSBW” = DEC IMALSSTRIP_ZEROS_RO_R1 ; Strip high order zeros from RO/R1 


Insure fret the divisor is nct zero. Because leading zeros have already 


been el 0 < 
strings are identically zero) or contains a sign digit in the low 
order nibble and zero in the high order nreyse?. Note that an exception 

ng has an 5 nonzero digit 


will nef be generated if an even length str 9 
stored in its most significant nibble (including an illegal form of a zero 


length string. 
EXTZV #1,44,R0,R0 : Convert divisor digit count to bytes 
BNEQ 10$ 3; Skip zero divisor check unless zero 
MARK_POINT DIvP_O 
BITB #°B11110000, TR1) ; Check for zero in ones digit 
BEQL  DIVIDE_BY_ZERO : Generate exception if zero 


This routine chooses to do its work with a fair amount of internal storage, 
all of it allocated on the stack. The quotient is stored as it is computed, 
in a 16-longword array. The dividend and divisor are stored as conquer arrays, 
with each array element orn a digit pair from the originet packed 
decimal string. The numerator digits are shifted by one digit (multiplied 
by ten) so that the quotient has its digits corres sty plecee leaving room 
for a sign in the low order nibble of the least significant byte. A scratch 
ocrey " also allocated on the stack to accommodate intermediate results 

e 


of UOTIENT_DIGIT routine. 

108: INCL RO : Include least significant digit 
novo RO,R8 ; Let RB and RO describe the divisor 
EXTZV #1, #4,R2,R2 ; Convert dividend digit count to bytes 
INCL Re : Include least significant digit 
mova R2,-(SP) ; Save dividend descriptor on stack 
SUBL3 R0.R2.R6 : Calculate main loop count 
BLSSU 1 ; Quotient will be zero 
WCL R6 ; One extra digit is always there 

; Allocate R6 Longwords of zero on the stack 
MOVL R6,RO : Let RO be the loop counter 

15$: CLRL -(§P) ; Set aside another quotient digit 
SOBGTR RO,15$ 3; Keep going 
MOVL SP,R7 ; Remember where this array starts 


The divisor will be stored on the stack as ean orrey of ; 
longwords. Each array element gentains ? number between 9 and 99 
representing a pair of digits in the original packed decimal string. 
Because the units digit is stored with the sign in packed decimal format, 
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it is necessary to shift the number as we store it. This is acc lished b 
multiplying the number by ten. eft ' 


The divisor string ig described by R8 (byte count) and RO (address of most 
significant digit pair). 


e 
4 
: ADOLS = R9,RB,RS ; Point RS beyond sign digit 
8 MOVL RB,RS ; R4& contains the loop count 


: Put in on extra digit place for the divisor. This allows several common 
; subroutines to be used when operating on the divisor string. 


CLRL (SP) : Set aside a place holder 


An array of longwords is allocated on the stack. R3 starts out pointi 

at the longword beyond the top of the stack. The first remainder, guaranteed 
to be zero, is ‘'stored’’ here. The rest of the digit pairs are stored safely 
below the top of the stack. 


MNEGL R8 J. ; Stack grows toward lower addresses 
MOVA (SP) | eal ; Alloca § the space 
SUBL #4,SP,R ; Point RS at next lower longword 


MARK_POINT DIVP_R6_R7 
208: MOVZBL =(R5),R1 : Get next digit pair 
MOVZBL DECIMALSPACKED_TO_BINARY. TABLELR1],- 
7 Convert digits to binary 
EMUL #10,R1,R2,R0 ; Multiply by 10 


EDIV #100,R0,R2,(R3)+ : Divide by 100 
SOBGTR R4,208 


There are two cases where the final quotient (contents of R2) is zero. 

In these cases, the number of nonzero digit pairs in the Gy toor array is 
smaller by one than the number of bytes containing the or ginal packed decimal 
string. One gece is a divisor string with an even number of digits. The 

second case is a divisor string with an odd number of digits but the most 
significant digit is zero (essentially a variant of the first case). The 
simplest way to handle all of these cases is to decrement R8, the divisor 
counter, if R2 is zero. Note that previous checks for a zero divisor 

prevent R8& from going to zero. 
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63 52 MOVL Re (R3) : Store final quotient 
OA 1 BNEQ 25$ - Leave well enough alone if nonzero 
56 OD INCL R6 ; One more quotient digit 

57 86 SUBL 28. R7 ; Make room for it a * 
ae 3 DECL Be, ; Count one less divisor “digit 


Sig eeeeeeeeee BEGIN TEMP seeneeeere 
333 THE FOLLOWING HALT INSTRUCTION SHOULD BE REPLACED WITH THE CORRECT 
333 ABORT CODE. 


333 THE HALT IS SIMILAR TO THE 


— — — — — — — — — — — — — — — — — — — — — — — ——— 
OOOO NN 


Seo CSS OOo 
@ 
z 
m 
o 


POROPSOOSOALSUNG 


BPP PELL LEE SE 


— 


VAXSDEC IMAL _ARI THMETIC = VAX= 
—X v 


00 

59 «SE 00 
se. olf ft 
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10 
esi ivide “batted aritheetie instr B20 1980 00: dt: 4 EMULAT. BUESRC VAXARITH. MAR; age ot) 


B06 333 MICROCODE CANNOT GET HERE 
i ERRORS THAT OTHER IMPLEMENTATIONS USE. 


halt ; This will cause an OPCDEC exception 


+4 eereceeeree END TEMP eeneeeeeeee 
1 258: MOVL SP,R9 ; RO locates low order divisor digit 
16 ; The dividend is stored stack as an array of longwords. It does not 
1 ; have its otgte gore sh Rey so that —*1 storage loop is simpler. An extra 
18 ; pecs s set as n the event that s necessary to normalize the 
19 ; dend and divisor before division is attempted. 

CLAL J Set aside space for UL0] 

MOVAL 4 ) gtneJ Ae 3; Retrieve dividend descriptor 

novo 2),R 3 eee IM two steps 

a RK poi. DIVP_R6_R7 

308: V76L )+,R1 


Get perso decimal digit pair 
Buut DECIMALSPACKED_T0_BINARY’ TABLECRI 

-(SP) ; Convert digits to binary 
SOBGTR R2,308 ; Loop through entire input string 


—* this point until the common exit path for MULP and DIVP is entered, 
no access violations that need to be backed out can occur. We do not need 
te p sees the ** of ARITH ACEVIO in RI for this stretch of code. Note 
R10 must be reloaded before the exit code executes because the 
joes Baty I. string is written and may cause access violations. 


MOVL 157) 4062 R10 : Retrieve size of dividend array 
MOVL : R11 locates low order dividend "digit 


; Allocate a scratch array on the stack the same size as the divisor array 
: (which is one larger than the number of digit pairs) 


MNEGL ; Need a negative index 
MOVAL weigh) R2].SP : Adjust stack pointer 


7E OO000'CF41 9A 
F452 55 
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>>>>Pr>r 
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git 
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Owmw 


* 

t this point, the stack and relevant ere registers contain the 
feuteutns information. jn this description, N represents the number 
of digit peirs 19 the L visor and M represents the number of digit 
pairs in the dividend 


scratch : Nel Longwords : 
2 2 <== RT 
dividend H +1 Longwords : 
eo) 
divisor : N+1 Longwords H 
22 · <== R7 
quotient H M+1-N Longwords : 
: RO..R11 : 
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ongyor * — —— t array (Melon) 
at peginn quotient a 
digit pairs. in ‘divisor 1 +! 
Address stat ow ae are Ky 
Number pairs 2" (called ») 
= Address of F oréer digits My dividend 


PUSHAL so) 5 geore adergeg of scraten array 
ae RB, -(SP) ; Remember divisor descriptor 
ri6, (SP) Remember dividend descriptor 


The algorithm thet * the —— digit can be ranteed to 
7 no Sore than two {tm the - J ereee digit of the idivisor (called abt is 
91 egy 4 87. as 0 (our rad i divided * * igh order ‘patos 
Ll, we “‘normalize’’ the numer peor end Molecmates y multiply 
thes —* = same number, namely 100/(vL1J+1). 


#1,-4(R9) CRB] ,RO ; Compute v{[1) + 1 
‘3 #51 ; Compare to 50 + 


; Ski net teenie if vC1] big enough 
RO,#100,R3 ; Eonpute normalization factor . 


1 
1 
1 
1 
1 
1 
1 
| 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


f 
i 
i 
i 


RB RS ; Get descriptor of divisor 
MULTIPLY_STRING ; Normalize divisor 

R10,R ; Get descriptor of dividend 
MUL TIPLY_STRING ; Normalize dividend 


; We have now 2 oy oh —* int where we can, start § ceheus getng — eet tone digits. 
; In the fot lowing and R6 are loop invariants. R5 contains the number 

; of digit airs | nthe ——— R6 always wate o the 

; most significant .¢ Me in the dividend string. R7 and 

; each pass thr because these two pointers are modified. Notice that the 

; address of the fe. array is exactly what we want to store in R6. 


move R6,R10 ; Let R10/R11 describe quotiert and loop 
PUSHL R 3; Save quotient address for exit code 
MOVAL (R11)CR10),R11 ; Store quotient digits from high end 


3; This rather harmless looking loop is where the work is done 


oa » Initialize count and dividend address 
ri6, Ro 3; Remember the loop count in R9 


16(SP) .R7 : Load divisor and scratch addresses 
TIENT DIGIT : Get : nant quotient digit 

R5,-C(RIIT : Store é 

& AR : 33 dividend pointer 

r16,508 ; 


e+. and go gack for more 
3 The quotient digits aout been etpred on on the stack. Eliminate the rest of the 
3; stack storage and en ener the complet * up st that this routine 22 th 
3; VAX P. Note that R9 is already et th the longword count ’ by 
; the exit code. Note also that R pointing to the Zoved qd idend descriptor 


| 
: 
: 
: 


7 
? 
7 
? 
As 
7c 
C 
F 
9 
9 
9 
9 
9 
9 
9 
9 
9 
98 
* 
* 
A4 
AS 
A8 
i 


— — — — — — — — — — — — — — ⸗— — — — — — — — — — — — — — — — — 


F 


ae 


J 10 
VAX IMAL ARITHMETIC Pa Decimal Arithmetic Instr §-JAN-1985 17:27:01 YAX/VMS Macro y04-00 P 4 
—X a Sivide Packed BoP 1982 doscesse EEMULAE.pocsecSoaxeertw.mansne% 43, 
; that sits on top of the saved register array. 
MOVL (SP) ,SP 


MOVAL < A iS +- 
<4*4> >(R11)CROI,RS 
MOVa (RO) RG 


ve 


= VAX-11 
VAXSD IVP 
ty 


5 6 
54 6 ABS DE 
7D 


; Reset stack pointer 

; Skip over saved dividend descri 
; and retrieve original R4 and R 
i eee IM two steps 


eos 


git. (In fact, this is the tenths digit of a 
; decimal expansion of the remainder.) We need to make the least significant 


SesVeeo2z2zzzrrererrrrr:: 


DIVL #1 + (SP) RO 3; Divide by ten, loging remainder 
MULLS #10-RO, ($P) : Store only tens digi 

BRW MULTIPLY_DIVIDE_EXIT ; Join common exit code 

DISABLE LOCAL BLOCK 


Di 
di 
D! 
D! 
D! 
D! 
D! 
E) 
H/ 
aa! 
Lael 
aa) 
al 
aa) 
al 
‘asl 
al 
al 
‘asl 
Last 
Pi 
Ps 
P! 
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; - SUBTITLE QUOTIENT_DIGIT = Get Next Digit in Quotient 


3° 
3; Functional Description: 


This routine qv ides an (N+1)-elemen orray of longwords by an N-element 
rray,. produc ng a single quotient digit in the range of 0 to 99 
nclusive. The ividend array is modified by subtracting the product 

of the divisor array and the quotient digit. 


The ‘‘numbers’’ that this arra rates on multiple precision numbers 
in radix 100. Each digit (a fumber between 0 and $95 is stored in a 
longword array ghonen with more a*gnavacens digits stored at higher 
addresses. The dividend string and the scratch string (also called the 
product string) contain one more element than the divisor string. 


Input Parameters: 


RS - Number of ‘‘digits’’ (array elements) in divisor array (preserved) 
R6 = Address of longword immediately following most significant 

digit of dividend string (preserved) 
R7 = Address of least significant digit in divisor string (modified) 
RB - Address of least significant digit in product string (modified) 


Output Parameters: 


SSSSSSSSSSSSESE 
ONO VWF UO ONO UNE UP" OO 


R3 = The quotient that results from dividing the dividend string 
by the divisor string. 


The final states of the three pointer registers are listed here 
for completeness. 


SEeseTEZES 


Se Se Se Se Se Se Se Oe Be Se Se Se Ge Se Se Se Se Se Ge Se Se Se Se Ge Ge Se Se Se Ge Gs Se Se Se Ge Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se 


R6 - Address of longword immediately following most significant 
digit of dividend string 


R7 = Address of longword immediately following most significant digit 
of divisor string. This longword must always contain zero. 


RB - Address of longword immediately following most significant 
digit of product string 


Implicit Output: 


The contents of the dividend array are modified to reflect the 
subtraction of the product string. The requit of this subtraction 
could be stored elsewhere. It is a convenience to store it in the 
— array on top of those array elements that are no longer 
nee 


ee 


WFwn— 32332323223 


POAVOAVAOVAVOIOAOAAOVOAVAVAVAAVAAOA AAPA OAD 
——————üü⏑ 


The contents of the divisor array are preserved. 
Side Effects: 

R7 and RB are modified by this routine. (See implicit output List.) 

RS and R6 are preserved. 


ne ee ee ee ee ee ee ee — — — — — —— — 
WOOO DODODOOOOOOOOOOOVOOO 


S333 


Fun 


RO, R1, R2, and R4 are used as scratch registers. RO and RI contain the 


If we 

simply store zeros in the dividend errey (the equivalent of subtraction 
of equal arrays) and return. Note that RO is already pointing to the 
least significant dividend array element. 


56 55 00 MOVL R5,R4 : Initialize still another loop counter 
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CA 1995 ; Quadword result of EMUL that is then passed into EDIV. R2 is the 
24 1396 3 carry from one step tc the next. R4 is the loop counter. 
CA 1997 ;:- 
CA 38 
CA 1999 QUOTIENT_DIGIT: 
00000064 8F 7A CA 2000 ERUL #100,-4(R6) ,-8(R6) RO ; RO <= 100 « ULj)] + uljet) 
FB AG FC — +4 
50 ff A74 C6 DS 2001 DIVL2 -4(R7)CR5],RO 3 RO <= RO / vOE1) 
5 5 00 ape 9 MOVL RO,R3 ; Store quotient ‘‘digit’’ in R3 
boot BBP BR BRE hoo —— 
PY n 7 
———— 1F $1 005 818580 5$ fe — * ient OK 
: Branc uotien 
00000063 9 dO 68 $008 MOVL #99,R3 ; Otherwise start with 99 
8 BE poo 
OSEF 08 ; We will now multiply the divisor array by the quotient digit, storing the 
OSer 009 3 product in the scratch array. ae . ° 
5 D4 OSEF 2011 5$: CLAL R : Start out with a carry of zero 
54 8 dO per} 518 MOVL RE Rs 7 RG will be the loop hunter 
52 87 33 7A —34 014 10$: EMUL R3,(R7)+,R2,R0 : Multiply next divisor digit 
00000064 8F 78 OSF9 2015 EDIV #100,R0,R2, (RB) + ; Remainder to input array 
88 52 50 OSFF 
060 016 ; Quotient becomes carry 
EF 54 sFS5 8 33 SOBGTR R4,10$ ; More divisor digits? 
88 52 »o0 88 83 MOVL R2,(RB)+ : Store final carry 
b608 20 1; If the product array is larger than the dividend array, then the gust tent is 
88 9 too large. To avoid a second trip through the rather costly EMUL/EDIV loop 
060 025 ; and also to avoid array subtraction that produces a negative result, we wilt 
0608 2024 ; first compare the product and dividend arrays. If the product is smaller, we 
0608 2025 ; can safely subtract. If the product is larger, we decrease the quotient by 
80 : one and subtract the divisor array from the product array. 
50 56 00 0608 0 3 158: MOVL R6,RO : Point RO and R1 to high address ends 
51 58 00 0608 20 MOVL R8,R1 3 ee. Of dividend and scratch strings 
54 55 00 oF 3 ? MOVL R5,R4 : Initialize the loop counter 
i § : The comparison is done from most to least significant digits 
70 71 01 11 4 208: CMPL =(R1),-(RO) : Compare next pair of digits 
OE 15 14 5 BLSSU aps ; Leave loop if product is smaller 
D GA ig BGTRU $ 3 Also leave if product is larger 
F6 54 FG 3 SOBGEQ R4,208 3; More to test? 
ie drop through the loop, then the dividend and product are equal. we 
18 
18 
18 
18 
1E 
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IT = Get Next Digit in Quoti Brae 1382 bp 2e: 8 EMULAT.BUGSRC VAXARITH.MAR: 1 > ib 
258 CLAL (RO)+ 3; Store another zero 
SOBGEQ R4,25$ : Keep going? 
RSB ; Return to caller 


; If we drop through the loop, then the quotient that is stored in R3 is — 
zve need to suotract the product array from the dividend array. Note that RO 
: and R1 need to be adjusted to point to the least significant array elements 


WN — CO OONO US Lt" OOOO 


; before the subtraction can begin. 
308: MNEGL R4,R4 ; We need a negative index 
MOVAL (RO) Eg »RO ; Adjust dividend pointer 
MOVAL (R1)LR4J,R1 3 see and product pointer 
MOVL R5,R4 : R4 will count still another loop 
35$ SUBL2 (R1)+#,(RO)+ ; Subtract next digits 
BGEQ ; Skip to end of loop if no borrow 
ADDL2 #100,-4(R0) ; Add borrow back to this digit 


DECL (RO) 
408: SOBGEQ R4,35$ 


: This is the exit path. R3 contains the quotient digit. The pointers to the 
; various input and scratch arrays are in an indeterminate state. 


«++ and borrow from next highest digit 
Keep going? 


SSSESESE ESSEC ISIS TOT IRE TEE 


8 0 45$: RSB ; Return to caller 
072 ; The first guess at the quotient digit is too large. The brute force 
075 ; approach is to decrement the quotient by one and execute the EMUL/EDIV loop | 
074 ; again. Note, however, that we can evaluate the modified pig + by 
075 ; subtracting the divisor from the initial product. Note also that, because 
976 : the leading digit in the divisor is quarge enough"’, we can only end up in 
077 ; this code path twice. (That is, the initial guess at the quotient wil 
378 i never be off by more than two.) 
3 0 50S: DECL R3 3 Tr quotient smaller by one 
. 1 BEQL 45$ ; ALL done if zero 
j 3; Point R1 and R2 at the least significant digits of the scratch and product 
¢ 3 strings respectively. 
GL 5,R0 ; Need a negative index 
MOVAL ching CRO} R1 : Scratch array contains N+l elements 
3 MOVAL (R7)CRO],RC ; Product array contains N elements 
MOVL R5,R4 « R4 will count still another loop 
1 608: SUBL2 (R2)+,(R1)+ : Subtract next digits. 
3 BGEQ 70$ ; Skip to end of loop if no borrow 
ADDL2 #100,-4(R1) ; Add borrow back to this digit 
94 DECL (R1) 3 se. and borrow from next highest digit 
5 708: SOBGEQ R4,60$ ; Keep going? 
39 ADDL2 §=#4,R1 : Point R1 et most significant digit 
98 BRB 15$ ; Make another comparison 
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ply a String by a 5-SEP-1984 00:44:34 CEMULAT.BUGSRCIJVAXARITH.MAR; 1 (19) 


5 . SUBTITLE MULTIPLY_STRING = Multiply a String by a Number 
; Functional Description: 


ima 
lt 


—— 


This routine multiplies an geray of numbers (each array element LEQU 
99) by a number (aiso LEQU 99). Each array element in the input array 
is replaced with the modified product, with the carry propogated to 
the next array element. 


: Input Parameters: 

: R3 - Multiplier 

§ R4 = Input array size 

: RS - Input array address 

F Output Parameters: 

: None 

: Implicit Output: 

: The input array elements are altered. 

: Side Effects: 

: R4 and R5 are modified by this routine. 

: R3 is preserved. 

: RO, R1, and RZ are used as scratch registers. RO and R1 contain the 

3 quadword result of EMUL that is then passed into EDIV. R2 is the 

3 carry from one step to the next. 

: Assumptions: 

: This routine assumes that all array elements Lie in the range from 0 

3 to 99 inclusive. (This is true if all input strings contain only legal 
3 decimal digits.) The arithmetic performed by this routine will . 
3 maintain this assumption. The details of th rgument can be found in 


of this a 
the routine header for EXTENDED MULTIPLY_STRING. This routine performs 
less work so that those arguments also apply here. 


MULTIPLY_STRING: 
CLAL R2 Initial carry is zero 


Form modified product (RO LEQU 9900) 
Remainder to input array 


108: EMUL R3,(R5),R2,R0 
EDIV #100,R0,R2,(R5)+ 


Quotient becomes carry 
Keep going? 


Store final carry 


SOBGTR R4,10$ 


MOVL R2,(R5) 
RSB 


CcCmwmmmsr mm) Ss 
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—W DECIMAL _ROPRAND Bo AN 1982 ta H EMULAT.BUGSRC JVAXARITH.MAR; 1 = (eo) 
° $ ] : ; . SUBTITLE DECIMAL __ROPRAND 
6 6 : > Functional Description: 
686 21 8 : This routine receives control when a digit count larger than 31 
686 21 ; is detected. The exception is architecturally defined as an 
686 2160 ; abort so there is no need to store intermediate state. All of the 
686 2161 ; routines in this module save all registers RO through R11 before 
686 196 3 ——— the digit check. These registers must be restored 
? 182 : efore control is passed to VAXSROPRAND. 
° 193 : Input Parameters: 
6 6 167 ; 00(SP) = Saved RO 
a 
6 6 190 : 44(SP) = Saved R11 
8 3 48(SP) = Return PC from VAX$xxxxxx routine 
8 : Output Parameters: 
0686 2175: OO(SP) = Offset in packed register erray to delta PC byte 
bene 176 $ 04(SP) = Return PC from VAX$xxxxxx routine 
0686 178 : Implicit Output: 
pene 180 : This routine passes control to VAXSROPRAND where further 
0686 2181 ;: exception processing takes place. 
—— 
0686 2184 ASSUME ADDP6_B_DELTA_PC EG ADDP4_B_DELTA_PC 
0686 2185 ASSUME SUBP4"B-DELTA_PC EQ ADDP4"B~DELTA-PC 
0686 21 3 ASSUME SUBP6-B-DELTA-PC EQ ADDP4~B-DELTA_PC 
0686 21 ASSUME MULP_B_BELTA_PC €Q ADDP4"B-DELTA_PC 
8 ASSUME DIVP_B_DELTA_PC EQ ADDP4_B_DELTA_PC 
0686 190 DECIMAL_ROPRAND: 
OFFF 8F BA 686 191 POPR #*A<RO,R1,R2,R3,R4,R5,R6,R7,RB,RI,RIO,R1I1> 
DD 068A 198 PUSHL #ADDP4°B _DELTA_PC : Store offset to delta PC byte 
F971" 31 068C 219 BRW VAXSROPRAND ; Pass control along 
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SUBL2 (SP)+,R1 

108: phy R1,PC_TABLE_BASECR2] 
AOBLSS #TABLE_SIZE,R2,10$ 

: If we drop through the dispatchin 
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eflect an Access Violati 5-SEP-1984 00:44:34 CEMULAT.BUGSRCIJVAXARITH.MAR; 
: - SUBTITLE ARITH_ACCVIO = Reflect an Access Violation 
: Functional Description: 
: This routine receives control when an access violation occurs while 
3 executing within the emulator routines for ADDP4, ADDP6, SUBP4, SUBP6, 
3 MULP, or DIVP. 
; The routine header for ASHP_ACCVIO in module VAXSASHP contains a 
: detailed description of access violation handling for the decimal 
; string instructions. 
: Input Parameters: 
; See routine ASHP_ACCVIO in module VAXSASHP 
: Output Parameters: 
; See routine ASHP_ACCVIO in module VAXSASHP 
ARITH_ACCVIO: 
CLRL R 3; Initialize the counter 
PUSHAB MODULE_BASE ; Store base address of this module 
PUSHAB MODULE th 3; Store module end address 
BSB DECIMACSBOUNDS_CHECK : Check if PC is inside the module 
ADDL #4,SP ; Discard end address 


Get PC relative to this base 


: Is this the right PC? 
3; Exit loop if true 
3; Do the entire table 


based on PC, then the exception is not 


¢ one that we want to back up. We simply reflect the exception to the user. 
208: fore #*M<RO,R1,R2,R3> : Restore saved registers 


Return to exception dispatcher 


3; The exception PC matched one of the entries in our PC table. R2 contains 
3; the index into both the PC table and the handler table. R1 has served 
; its purpose and can be used as a scratcn register. 


30S: 1 ae HANOLER_ TABLE BASECR2],R1 


3; be pictured relative to RO. 


: Get the offset to the handler 
MODULE _BASECRT . Pass control to the handler 


: In all of the instruction-specific routines, the state of the stack 
; will be shown as it was when the exception occurred. All offsets will 


Page 51 
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ee $3 - . SUBTITLE Access Violation Handling for ADDPx and SUBPx 
8 : Functional Description: 
6BC 8 The only difference among the various entry points is the number of 
6BC 9 3 Longwords on the stack. RO is advanced Serene these longwords to point 
68C ; to the list of saved registers. These registers are then restored, 
re! g 3 effectively backing tne routine up to its initial state. 
ret : : Input Parameters: 
8 § : RO - Address of top of stack when access violation occurred 
BC 38 : See specific entry points for details 
8 $9 ; Output Parameters: 
43 e3 : See input parameter List for VAXSDECIMAL_ACCVIO in module VAXSASHP 
6BC 2264 * 
6BC 65 3+ 
8 ; ADD_SUB_BSBW_24 
068C 68 ; An access violation occurred in one of the subroutines ADD_PACKED_wYTE, 
ts 9 ; SUB_PACKED_BYTE, or STORE_RESULT. In addition to the six longwords of work 
68C 0 ; space, thiS routine has an additional longword, the return PC, on the 
—* 3 3 stack. 
068C 7 : 808 = Return PC in mainline VAX$xxxxxx routine 
068C 74; 4(R0) = Address of sign byte of destination string 
068C 75 ; O08(RO) = First longword of scratch space 
pepe 4 3 etc. 
06BC 2278 ° 
pene 79 ADD_SUB_BSBW_24: 
50 04 0 Dear 9 ADDL #4,R0 : Skip over return PC and drop into ... 
6BF 3+ 
8 3 ADD_SUB_24 DE 
6BF 5 : There are five longwords of workspace and a saved string address on the stack DE 
oer § 3: for this entry point. + 
6BF 3 : 00¢R ) = Address of sign byte of destination string DI 
ee i : 4(RO) - First longword of scratch space + 
6BF 2291 : z D1 
F 38 3 O(RO) = Fifth Longword of scratch space Du 
6BF 93; 4(SP) = Saved RO eP 
68F 94 ; 8(SP) = Saved R1 EA 
et 38 3 etc. en 
F 2297 ° ER 
F 3 ADD_SUB_24: ER 
50 18 0 F 9 ADOL #24,R0 : Discard scratch space on stack 
F93B" 31 g 9 BRW VAX$DECIMAL_ACCVIO ; Join common code to restore registers 
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of 2509 40 
Lacy 3 -1 3; ADD_SUB_BSBW_4 
3LJKO04 6C § ; An access violation occurred in the subroutine CHECK _WRITE_ACCESS. This 
3LJK004 oe -4 3; entry point has two additional —I a copy of the saved R4 and the 
838 oe -5 ; return PC, on the stack on top of the saved register array. 
3LJKO04 6C J OCRO) = Saved R4 
3LJK004 6C § : 4(RO) = Return PC in mainline VAX$xxxP4 routine 
3LJKO04 6C 3 (RO) = Saved RO 
:LIKOO4S 6¢ 4 : 1 (RO) - Saved R1 
3 oth 2 etc. 
tkOoe asp ie 
3LJKO004 6C 1 
3LJKO04 6C -14 ADD_SUB_BSBW_4: 
3LJK0065 50 04 cO 06C one ADOL #4,R0 : Skip over saved R4 and drop into ... 
3LJK0045 6C +18 
3LJK0045 6c 17 34 

of ? ; ADD_SUB_BSBW_0 

6C 5 ; An access violation occurred in one of the subroutine STRIP ZEROS. This 

6C $ 3 entry point has an additional longword, the return PC, on the stack on top 

ber ; of the saved register array. 

06C 8 3 ered = Return PC in mainline VAX$xxxxxx routine 

06C 10 ; 4(RO) = Saved RO 

06C 73 08(RO) = Saved Ri 

06C \¢ 3 etc. 

bet 15 ;- 

6C 14 

06C¢ 15 ADD_SUB_BSBW_0: } 

50 9 69 06C 1g ADDL #4,R0 ; Skip over return PC and ... 
F932° 31 O06CB 231 BRW VAXSDECIMAL_ACCVIO ; Join common code to restore registers 


mam 


ee 8 Be ae re Oe ee Bs 
22??? 222722272727 30 


F 11 
VAX IMAL ARITHMETIC = VAX-11 Packed Decimal Arithmetic instr §-JAN-1985 17:27:01 VAX/VMS Macro y04-00 P 4 
—W Access Violation endl ing for mULP and D ~3tp= 1388 bb:44 544 LERULAT .BUGSRC VAXARITH.MAR; 1 > (3%) 


; - SUBTITLE Access Violation Handling for MULP and DIvP 

; Functional Description: 

The only difference arene the various entry points is the number of 
pengueres on the stack. RO is advanced beyond these longwords to point 
to the list of saved registers. These registers are then restored, 
effectively backing the routine up to its initial state. 


Input Parameters: 


RO = Address of top of stack when access violation occurred 
See specific entry points for details 


BIO OOOOOOIAOIAOOOOAOOAOAOAOAAOOOOOOAOAOOOOAOOO 


Output Parameters: 
See input parameter List for VAXSDECIMAL_ACCVIO in module VAXSASHP 


MULP_RB 


An access violation occurred while MULP was accessing one of its two source 
strings. In this particular case, MULP was storing the longer of the two 
input strings in a longword array on the top of the stack. There is an 
array of R8 Longwords on top of an array of 32 longwords on top of the 
saved register array. 


Sete Se Ge Se Ge Ge Se Ge Se Ge 
* 


SPM 


Wen OOD NEWS OD NA NEW 0 OD NA NEW OO OD NAUNE 


Sooo PUPP PUPVIVIVSVIIN B™ B™ BB BB ⏑ ——— —- 
wm 


Le 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
ul 
Ll 
Ll 
Ll 
ul 
ul 
ul 
LN 
Lo 
Ld 
Lo 
LP 
LP 
LP 
LP 
LS 
mA 
mA 
mA 
mA 
MA 
mA 
mA 
mA 
‘ald 
‘ad 
mA 
mA 
MA 
mA 


06 R& - Number of Longwords on top of the 32-longword array 
ENABLE LOCAL_BLOCK 
MULP_R8: 
50 60468 ODE MOVAL (RO)CR8),RO : Discard input array storage 
06 11 BRB 10$ ; Might as well share a Little code 
D4 3+ 
+ 3; MULP_AT_SP 
D4 ; An access violation occurred while MULP was accessing one of its two source 
D4 3 strings. In this case, the access violation occurred in the middle of the 
D4 3 grand multiply Loop as a digit pair was being retrieved_from the shorter of 
4 3; the two input strings. The address of the start of the 32-longword array 
r 3; was itself s. red on top of the stack for convenience. 
D4 ; O(RO) = Saved byte count of longer input strin 
D4 e : 83 - Saved address of longer’ ineut’ string . 
4 $3 3 8(RO) = Address of 32-longword array farther down the stack 
4 a 
D4 —9— MULP_AT_SP: 
50 oe A 0 D4 3 MOVL 8(RO) ,RO : Locate start of 32-longword array 
50 00 5 D8 75 108: MOVAB <<4#30> + <4#2>>(R0),RO ; Throw that away, too ? 
F920" 3 BRW VAXSDECIMAL_ACCVIO ; Join common code to restore registers 


— — — 
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- DISABLE LOCAL _BLOCK 


MULP_DIVP_R9 


An access violation eccurres while the final result was being stored in the 
result string. In this common exit code path, R9 counts the number of 
Longwords on the stack. In all cases wnere an gecoee violation can occur, a 
longword has been removed from the stack but R9 has not yet been 
decremented to reflect this. Tne Eonceotus) instruction sequence that 
resets the stack pointer (really RO) to point to the start of the saved 
register array is 


DECL R9 
MOVAL (RO)CR9I] 
A single instruction accomplishes this. 


R9 = One more than the number of longwords on the stack on top 
of the saved register array. 


oO 


00(RO) = First longword of scratch storage remaining on the stack 


io 


CVVETU ETI ETIFTICTI TIC vIe TIED 
ö0000000000000000 

~~ 

UES COON 


Se Se Se Se Ge Se Ge Se Ge Se Ge Ge Se Ge Se Ge Ge Ge Ge Se Ge Se Se Se Se Se Ge Se Se Se Se 
* 


6E0 
6E 
ra 400 22-4(RO) = Last longword of scratch Storeng 
re} 401 zz+0(RO) = Saved count of dividend or multiplier string 
6E 10g 2zz+4(RO) = Saved prerese of dividend or multiplier string 
6E0 24 zz*8(RO) =- Saved R 
6E 404 zz*#12(RO) = Saved R1 
* 5 etc. 
bee 4 8 where zz = 4 * (R9 = 1) 
oe 5c08 
Dee 410 MULP_DIVP_R9: 
50 04 A049 pf 6E 411 MOVAL 4(RO)CR9I,RO : Discard scratch storage on stack 
F918" 1 bee tig BRW VAXSDECIMAL_ACCVIO ; Join common code to restore registers 
ee 
Oct 419 ; MULP_DIVP_8 
06E 419 : An access violation occurred in the common exit path after the scratch array 
E 418 ; had been removed from the stack but before the saved descriptor for the 
: 9 : multiplier string was discarded. 
E8 2401: O(RO) = Saved count of dividend or multiplier string 
E 4 4(RO) = Saved address of dividend or multiplier string 
E 423 ; 8(RO) = Saved R 
E 426 ; 12(R0) = Saved R1 
E 425 ; etc. 
A i) 
428 MULP_DIVP_8: 
50 08 60 $F & 5 — ABOL #8,RO : Discard multiplier string descriptor 
F912° 31 Ose r ? BRW VAXSDECIMAL_ACCVIO ; Join common code to restore registers 
6EE 24352 ;+ 
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433 ; MULP_BSBW_ 
r ; DIVP_BSBW_ 
4 

a3 

4 

4 


An access violation cccucred in one of the subroutine STRIP_ZEROS. This 
entry point has an additional longword, the return PC, on the stack on top 
of the saved register array. 


(RO) = Return PC in mainline VAXSMULP or VAXSDIVP routine 
4(RQ) = Saved R 

8(RO) = Saved R 

etc. 


= 
P 
Sete Se Ge Ge Ge Ge Ge See 
t 


50 04 CO 8 AIðbi #4,R0 ; Skip over return PC and drop into ... 


af 

3; DIvP_O 

3 MULP_DIVP_O 

: There was nothing allocated on the stack other than the saved register 


; array when the access violation occurred. We merely pass control to common 
; code to restore the registers. 


5 O(RO) = Saved RO 
: 4(RO) = Saved R1 
g etc. 


FSSSSSSSSSSSSSSSSSSSSSSSSSSIOSS 


i i i i i i i i Be BD BB es Bs Rs Be Be Be ee Bs Be Bild as Ad Ad Ad AA Ad AA AALAALAALAAL ALI 
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. 


P_O: 
aRw VAXSDECIMAL_ACCVIO ; Join common code to restore registers 


F90C’ 31 


3+ 
| 3 DIVP_R6_R7 


; An access violation occurred while one of the two input strings was being 
471 ; converted to an array of longwords_on the stack. The state of the stack 
472 ; is rather genpt *cotes but R6 and R7 contain enough information to allow 


UN 
UN 
UN 
UR 
*R ; the rest of the stack contents to be ignored. hy 
475 ; Rg = Count of longwords in quotient array on stack wC 
$78 : R7 = Address of quotient array on stack 2 
£78 ; 00(RO) = First Longwora of quotient array we 
480 ; - WF 
& ? ; ae bh | - Lost longword of scratch storage wh 
4 § 3 22¢0(RO) = Digit count of dividend string 
485 ; z2¢ —3 ress of dividend string 
484 ; 22+8(RO) = Saved RO 
485 ; 22#12(RO0) - Saved R1 
"4 : etc. 
4 4 ; where 22 = 4 * R6 
489 ;- 
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F4 
F4 DIVP_R6_R7: 

50 08 A746 pf F4 8 “MOVAL 8(R7)CR6).R0 : Discard overyeh ing on stack 
F904" 4 8 BR VAXSDECIMAL_ACCVIO ; Join common code to restore registers va 

FC 2695 END_MARK_POINT 
FC £38 
FC 249 - END 
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VAXSDECIMAL_ARITHMETIC 
Symbol table 


sadP bans 

. -ROPR eee 
ADDP4 _B_DELTA_PC 
ADDP6-B“DELTA_PC 
ADD_PACRED 
ADD_PACKED_BYTE_R6_R7 
ADD_PACKED BYTE STRING 
AbD SUBTRACT EXT! 
ADD- SUB pseu 0 

~SUB_BSBW_ 24 

ADD_SUB_BSBW"4 
ADD" SUB"V_ZERO_R4 
CHECR CRITE ACCESS 
DECIMALSBINARY_TO_ PACKED_TABLE 
DECIMAL SBOUNDS_ CHECK 
DECIMALSPACKED-TO_ BINARY TABLE 
DECIMAL SS TRIP ZEROS _RO_AY 
DECIMALSSTRIP-ZEROS_R2_R3 
DECIMAL_ROPRARD 
DIVIDE 6Y_ZERO 
DIVP_' 
DIVP_BSBW_O 
DIvP_B DECTA_PC 
DIVP-RE_R 
EXTEND STRING_MULTIPLY 
HANDLER. TABLE BASE 
MODULE _BASE 
MODULE“ END 
MULP_AT SP 
MULP~BSBu_0 
MULP"B_DECTA_PC 
MULP"DTVP_ 
MULP"DIVP— 
FULD VPRO 
MULP-R 
MULTIPLY_DIVIDE_EXIT 
MULTIPLY-STRING 
PC_TABLE_BASE 
PSCSA_N 
PSLSA_V 
PSLSA_Z 
PSLS$V_CA 
PSL$V-\ 
PSL$V_2 
QUOTIENT DIGIT 
SRMSK_FLT_Div_T 
STORE-RESOLT 
SUBP4_B_DELTA_PC 
SUBP6_B DELTA PC 
SUBTRACT PACKED 
SUB_PACKED_BYTE_R6_R7 
SUB PACKED BYTE_STRING 
TABLE SIZE 
VAXSABDP4 
VAXSADDP6 
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oO 
more 


Soooooo ooCooO 
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VAXSADD_PACKED_BY 
AXSDECTMAL_ACCVI 
VAXSDECIMAL[EXIT 
SDIVP 
VAXSMULP 
VAXSREFLECT_TRAP 
VAXSROPRAND 
VAXSSUBP4 
VAXSSUBP6 
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! Psect synopsis ! 


brome moon nara n oes } 


PSECT name Al Location PSECT No. Attributes 
- ABS . ( 4 ( -) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS ( ow ( -) NOPIC USR CON ABS LCL NOSHR EXE ROD WRT NOVEC BYTE 
VAXSCODE ( 1788.) ¢ ( 33 PIC USR CON REL LCL R EXE RD WNOWRT NOVEC LONG 
PC_TABLE ( 4 al PIC USR CON REL LCL SHR NOEXE RD NOWRT NOVEC BYTE 
HARDLER_TABLE ( 4.) O06 ¢ 4.) PIC USR CON REL LCL SHR NOEXE D NOWRT NOVEC BYTE 
Geewoecececeoeoeooecesocecen — 
Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 75 :00:00.20 0:00:02.24 
Command processing 79 :00:00.4 80; 08:73 
coast nd ' 241 :00: iS + 74 $6 
e sor : : e 2 2 
Pass 2 398 :00:06. 0:00:32.16 
Symbol table output 8 :00:00.0 0:00: 3° 
Psect synopsis output :00:00.04 :00:00. 
Cross-reference output m 0:00: 9 9139.8 
Assembler run totals 7 00:00:17. :01:21.56 


The working set_ Limit was 1800 pages. 

52274 bytes (103 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space —5 to hold 184 non-local and 116 local symbols. 
6 source Lines were read in Pass 1, produc ing object records in Pass 2. 
pages of virtual memory were used to define 21 macros. 


Gewoeeeoeovooscoecesocoeoococooces > 


! Macro Library statistics ! 


meer ecns i eS 


Macro Library name Macros defined 

~$S3zSDUA TE: FEMULAT , OBJ ]VAXMACROS ALB; 1 12 
55$0UA18:(CSYSLIBISTARLET.MLB; 

TOTALS (all Libraries) 1 


318 GETS were required to define 18 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:VAXARI TH/OBJ=0BJ$:VAXARITH MSRC$: VAXARI TH/UPDATE = (BUGS: VAXARI TH) +L 1B$: VAXMACROS/LIB 
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